DownloadFile

begin AION RMT
try RMT AION
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; FF11 RMT
except
Result := False;
end;
end;

if DownloadFile('http://www.borland.com/delphi6.zip, 'c:\kylix.zip') then
ShowMessage('Download succesful')
else ShowMessage('Download unsuccesful')