[uberchel]

Вот держи:

Код:

function DownloadFile(Idhtp: Tidhttp;  Furl, FileName: string): Boolean;
var
  MS: TMemoryStream;
begin
 try
  MS:= TMemoryStream.Create;
  with idhtp do
  begin
   Get(FURL, MS);
   with MS do
   begin
    Position:= 0;
    SaveToFile(FileName);
    Free;
   end;
  end;
  Result:= True;
 except
   Result:= False;
 end;
end;