function DownloadFile(const Url: string): string; 
var 
  NetHandle: HINTERNET; 
  UrlHandle: HINTERNET; 
  Buffer: array[0..1024] of char; 
  BytesRead: cardinal; 
begin 
  Result := ''; 
  NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); 

  if Assigned(NetHandle) then 
    begin 

    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0); 

    if Assigned(UrlHandle) then 
      { UrlHandle правильный? Начинаем загрузку } 
      begin 
      FillChar(Buffer, SizeOf(Buffer), 0); 
      repeat 
        Result := Result + Buffer; 
        FillChar(Buffer, SizeOf(Buffer), 0); 
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead); 
      until BytesRead = 0; 
      InternetCloseHandle(UrlHandle); 
      end 
    else 
      begin 
      { UrlHandle неправильный. Генерируем исключительную ситуацию. } 
      raise Exception.CreateFmt('Cannot open URL %s', [Url]); 
      end; 

    InternetCloseHandle(NetHandle); 
    end 
  else 
    { NetHandle недопустимый. Генерируем исключительную ситуацию } 
    raise Exception.Create('Unable to initialize Wininet'); 
end;