1:
2:
3:
4:
5:
6:
7:

uses 
   ...UrlMon;

procedure TForm1.Saugwas();
begin
UrlDownloadToFile(...)
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

uses 
  WinInet, WinSock, Windows; 

function LoadURL(URL: String): String; 
var 
  IOpen, IURL: HINTERNET; 
  Read: Cardinal; 
  Msg: array[0..4096] of Char; 
begin 
  Result := ''; 
  try 
    IOpen := InternetOpen('Mein Programm', INTERNET_OPEN_TYPE_PRECONFIG, '', '', 
        INTERNET_FLAG_NEED_FILE); 
    if IOpen <> nil then 
    try 
      IURL := InternetOpenUrl(IOpen, PAnsiChar(URL), nil, 0, 
          INTERNET_FLAG_NO_UI, 0); 
      if IURL <> nil then 
      try 
        repeat 
          FillChar(Msg, SizeOf(Msg), 0); 
          if InternetReadFile(IURL, @Msg[0], Pred(SizeOf(Msg)), Read) then 
            Result := Result + Msg 
          else 
            Break; 
        until Read = 0; 
      finally 
        InternetCloseHandle(IURL); 
      end; 
    finally 
      InternetCloseHandle(IOpen); 
    end; 
  except 
  end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

uses 
  UrlMon; 

function GetPageContent(URL: string): string; 
var 
  MyFile: file; 
  Buf: array[0..14] of Char; 
  Filename: string; 
  MyResult: integer; 
begin 
  Result := ''; 
  Filename := ExtractFilePath(ParamStr(0)) + 'temp.txt'; 
  UrlDownloadToFile(nil, PChar(URL), PChar(Filename), 0, nil); 
  AssignFile(MyFile, Filename); 
  {$i-} 
  if Fileexists(Filename) then 
    Reset(MyFile) 
  else 
    ReWrite(MyFile); 
  {$I+} 
  if IOResult = 0 then 
    BlockRead(MyFile, Buf, SizeOf(Buf), MyResult); 
  CloseFile(MyFile); 
  DeleteFile(Filename); 
  Result := Buf; 
end;