Internet per Edit öffnen

[GroZ]

Ok Danke.
Habe es probiert und bekomme die anweisung '[Fehler] Unit1.pas(38): Unbekannte Anweisung: 'X'

Delphi-Quellcode:

procedure TForm1.GooglesucheKeyDown(Sender: TObject;
var Key: Word;
  Shift: TShiftState);
    X  : string;
begin
  x := GoogleSuche.Text;
  if key = #13 then
  begin
  ShellExecute(handle, nil, Pchar('https://www.X.de'), nil, nil, SW_SHOW)
  end;
end;

end.