Charger un fichier sur Internet

uses WinInet;
{$R *.DFM}

function DownloadFileFromHTTP( const AURL: string; const ADestFileName: string): boolean;
var
hInet: HINTERNET;
hFile: HINTERNET;
localFile: file;
buffer: array[1..1024] of byte;
bytesRead: DWORD;
begin
result := False;
hInet := InternetOpen(PChar(application.title),
INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
hFile := InternetOpenURL(hInet, PChar(AURL), nil, 0, 0, 0);
if Assigned(hFile) then
begin
AssignFile(localFile, ADestFileName);
Rewrite(localFile, 1);
repeat
InternetReadFile(hFile, @buffer, SizeOf(buffer), bytesRead);
BlockWrite(localFile, buffer, bytesRead);
until bytesRead = 0;
CloseFile(localFile);
result := true;
InternetCloseHandle(hFile);
end;
InternetCloseHandle(hInet);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if DownloadFileFromHTTP('http://www.fobec.com', 'c:index.htm') then
ShowMessage('opération réussi')
else
ShowMessage('echec lors du download');
end;