WinInet を用いて、URL からHTTP接続でファイルをダウンロードするプロシージャ

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;