Danke, habe es so hingekriegt das die Googlesuche es funktioniert
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, Nil, PChar('http://www.google.de/search?q='+edit1.Text+'&ie=UTF-8&oe=UTF-8&hl=de&meta='), Pchar(''), Pchar(''), SW_NORMAL);
End;