[NumLock]

будет ругаться? а то у меня нет антивирусника.

Код:

uses
  SimpleWinInet,

procedure URLDownloadToFileCB(TotalBytes: DWORD; ReadedBytes: DWORD);
begin
  Form1.Memo1.Lines.Add(IntToStr(TotalBytes)+' '+IntToStr(ReadedBytes));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(URLDownloadToFile('http://ya.ru/', 'd:\Downloads\delphisources.htm', @URLDownloadToFileCB)));
end;

http://data.cod.ru/119601