procedure GetFileFromURL(URL, FileName: string);
var
hService: HINTERNET;
begin
if hSession<>nil then
begin
hService:= InternetOpenUrl(hSession, PChar(URL), nil, 0, INTERNET_FLAG_RELOAD, 0 );
if hService<>nil then
WriteFromInetHandle(hService, FileName);
InternetCloseHandle(hService);
end;
end;