1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure LinkOeffnen(const Url: string);
//oeffnet eine seite im standardbrowser
begin
  ShellExecute(0, 'open', PChar(Url), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  LinkOeffnen('http://www.google.de/search?q=' + StringReplace(Edit1.Text, ' ', '+', [rfReplaceAll]));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function TextZuAnderemTextOderSo(const Text: String): String;
const
  OK = 'abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  i: Integer;
begin
  Result:='';
  for i:=1 to Length(Text) do begin
    if Pos(Text[i], OK)>0 then Result:=Result + Text[i] else
     Result:=Result + '%' + IntToHex(Ord(Text[i]), 2);
  end;
end;