prozedur soll eine Button-Click prozedur aufrufen

[Spyx]

Ich schätze mal die Antwort ist richtig simple, aber ich suche schon seit einer Stunde und hab noch nichts gefunden.

So soll es funktionieren:
Wenn man im Edit1 Feld etwas geschrieben hat und Enter drückt, soll TForm1.Button1Click ausgeführt werden:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(13)
  then TForm1.Button1Click([color=#ff0000]?[/color]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

Könnte mir da bitte jemand helfen?