Webseite auslesen Error 403 forbidden

[sakura]

Mit den Indy-Kompos wurde auf Google schon zu viel Müll getrieben und so wurden diese blockiert. Hier die einfache Lösung:

Code:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  [color=#ff0000]idHTTP1.Request.UserAgent := 'Mozilla';[/color]
  memo1.Text := idHTTP1.Get('http://www.google.com/custom?        q=blahblah&domains=www.blahblah&sitesearch=www.blahblah.de'); 
end;

......