Nejprve přidejte do Uses knihovny URLMon

a ShellApi, které budeme potřebovat. Vlastní funkce bude vypadat takto:
.
.
.
Uses URLMon, ShellApi;
.
.
.

function DownloadFile(Zdroj, Cil: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(Zdroj), PChar(Cil), 0, nil) = 0;
except
Result := False;
end;
end;
Opravdu velmi jednoduché. Funkci můžeme použít například v události po stisku tlačítka takto:
procedure TForm1.Button1Click(Sender: TObject);
const
ZdrojovySoubor = '/soubor.exe';
CilovySoubor = 'c:\soubor.exe';
begin
if DownloadFile (ZdrojovySoubor, CilovySoubor) then ShowMessage('Stažení souboru bylo úspěšné')
else ShowMessage ('Chyba při stahování souboru ' + SourceFile)
end;