Download File from Internet

uses URLMon, ShellApi;

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
 try
 Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
 except
 Result := False;
 end;
end;

Beispiel :

procedure TForm1.Button1Click(Sender: TObject);
const
 // URL Location
 SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';
 // Where to save the file
 DestFile = 'c:\google-image.gif';
begin
 if DownloadFile(SourceFile, DestFile) then
 begin
 ShowMessage('Download succesful!');
 // Show downloaded image in your browser
 ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
 PChar(''), nil, SW_NORMAL)
 end
 else
 ShowMessage('Error while downloading ' + SourceFile)
end;