HTTP/1.1 404 Not Found

[stalker1995s]

Привет форумчане, вчера я задавал вопрос, по поводу торрентов, вот накопал кое чего, точнее это исходник, но есть одна проблема, он не скачивает торренты, выдает ошибку "HTTP/1.1 404 Not Found" Может кто то сталкивался ?

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
TorrentFile := TTorrentFile.Create;
TrackerScrape := TTrackerScrape.Create;
TorStream := TMemoryStream.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
TxtSeeders, TxtLeechers: String;
begin
if OpenDialog1.Execute then
begin
TorStream.LoadFromFile(OpenDialog1. FileName);
TorrentFile.Load(TorStream);
TorStream.Clear;
end;

HTTPClient.Request.Host := BTStringFunc.GetHostFromUrl(Torrent File.Announce);
TorStream.Clear;
HttpClient.Get(GetFullScrapeURL(Tor rentFile.Announce)+'scrape', TorStream);
TorStream.Seek(0, soFromBeginning);

if TrackerScrape.Load(TorStream) then
begin
TrackerFile := TrackerScrape.Files.Items[TorrentFile.Hash] as TTrackerFile;
if(TrackerFile.Complete > -1) then
txtSeeders := IntToStr(TrackerFile.Complete)
else
txtSeeders := '0';
if(TrackerFile.Incomplete > -1) then
txtLeechers := IntToStr(TrackerFile.Incomplete)
else
txtLeechers := '0';
end;
Edit5.Text := IntToStr(Round(TorrentFile.Length / TorrentFile.PieceLength));
Edit6.Text := IntToStr(Round((TorrentFile.Length / 1024) / 1024))+' MB';
Edit4.Text := IntToStr(Round(TorrentFile.PieceLen gth / 1024))+' KB';
Edit3.Text := IntToStr(TorrentFile.Count);
Edit1.Text := TxtSeeders;
Edit2.Text := TxtLeechers;
Label7.Caption := 'Scrape is supported';
TorStream.Free;
end;

end.

[Человек_Борща]

а вы в гугле "not found" переведите.