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

 = 0; 
 except 
 Result := False; 
 end; 
end; 

procedure TForm1.Button1Click(Sender: TObject);
 const
 // URL Location
 SourceFile = 'http://imgl.yandex.net/i/www/logo.png';
 // Where to save the file
 DestFile = 'c:\logo.png';
 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;