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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

...
   google := 'http://www.google.com/search?q=' + Edit1.Text + '&start=' + inttostr(I) ;
   Quell := GetHTML(google);
...

function GetHTML(AUrl: string): string;
var
   databuffer: array[0..5000] of char;
   ResStr: string;
   hSession, hfile: hInternet;
   dwindex, dwcodelen, dwread, dwNumber: cardinal;
   dwcode: array[1..20] of char;
   res: pchar;
   Str: pchar;
begin
   ResStr := '';
   Result := '';
   if pos('http://', lowercase(AUrl)) = 0 then
      AUrl := 'http://' + AUrl;
   hSession := InternetOpen('InetURL:/1.0',
      INTERNET_OPEN_TYPE_PRECONFIG,
      nil,
      nil,
      0);
   if assigned(hSession) then try
      hfile := InternetOpenUrl(
         hsession,
         pchar(AUrl),
         nil,
         0,
         INTERNET_FLAG_RELOAD,
         0);
      if assigned(hfile) then try
         dwIndex := 0;
         dwCodeLen := 10;
         HttpQueryInfo(hfile,
            HTTP_QUERY_STATUS_CODE,
            @dwcode,
            dwcodeLen,
            dwIndex);
         res := pchar(@dwcode);
         dwNumber := sizeof(databuffer) - 1;
         if (res = '200') or (res = '302') then begin
            while (InternetReadfile(hfile, @databuffer, dwNumber, DwRead)) and (dwRead <> 0) do begin
               databuffer[dwread] := #0;
               Str := pchar(@databuffer);
               resStr := resStr + Str;
               Application.ProcessMessages;
            end;
         end else
            ResStr := 'Status:' + res;
      finally
         InternetCloseHandle(hfile);
      end;
   finally
      InternetCloseHandle(hsession);
   end;
   Result := ResStr;
end;