uses 
   WinInet; 

 function GetContent(URL: String): String; 
 const 
   BufferSize = 1024; 
   UserAgent = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru) Gecko/20100722 Firefox/3.6.8'; 
 var 
   hSession, hURL: HInternet; 
   Buffer: array[1..BufferSize] of Byte; 
   BufferLen: DWORD; 
   I: Integer; 
   S: String; 
 begin 
   S:=''; 
   hSession:=InternetOpen(PChar(UserAgent),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0); 
   try 
     hURL:=InternetOpenURL(hSession,PChar(URL),nil,0,0,0); 
     try 
       repeat 
         InternetReadFile(hURL,@Buffer,SizeOf(Buffer),BufferLen); 
         for I:=1 to BufferLen do S:=S+chr(Buffer[I]); 
       until BufferLen = 0; 
     finally 
       InternetCloseHandle(hURL) 
     end 
   finally 
     InternetCloseHandle(hSession) 
   end; 
   Result:=S; 
 end;