uses shellapi; 
 
procedure StartGoogleSucheDeutsch(Suchbegriff: string); 
var 
  z: string; 
begin 
  stringreplace(Suchbegriff, #32#32, #32, [rfreplaceall]); 
  stringreplace(Suchbegriff, #32, '+', [rfreplaceall]); 
  stringreplace(Suchbegriff, '"', '%22', [rfreplaceall]); 
  if pos('+', Suchbegriff) > 0 then z := '&btnG=Suche' else z := ''; 
  shellexecute(application.handle, 'open', 
    PChar('http://www.google.de/search?hl=de&q=' + Suchbegriff + z + 
    '&meta=lr%3Dlang_de'), nil, nil, sw_showmaximized); 
end; 
 
// ein Wort suchen 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  StartGoogleSucheDeutsch('Delphi'); 
end; 
 
// zusammenhängende Worte suchen 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  StartGoogleSucheDeutsch('"Borland Delphi"'); 
end;