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:

function LoadURL(URL: String): String; 
var 
  IOpen, IURL: HINTERNET; 
  Read: Cardinal; 
  Msg: array[0..4096] of Char; 
begin 
  Result := ''; 
  try 
    IOpen := InternetOpen('GetIP', INTERNET_OPEN_TYPE_PRECONFIG, '', '', 
        INTERNET_FLAG_NEED_FILE); 
    if IOpen <> nil then 
    try 
      IURL := InternetOpenUrl(IOpen, PAnsiChar(URL), nil, 0, 
          INTERNET_FLAG_NO_UI or INTERNET_FLAG_PRAGMA_NOCACHE or INTERNET_FLAG_RELOAD, 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;