Prozedur aufrufen - Onclick - Edit

[isilive]

Hi Leute!

Ich hab ein Edit Feld und einen Button.

Für das 'OnClick' vom Button hab ich schon eine Prozedur geschrieben die den 'edit1.text' im 'memo1' sucht und dann markiert.

Jetzt möchte ich, dass beim Drücken von Enter im Edit1 dasselbe passiert.

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key <> vk_return then exit;
   TForm1.Button1Click;
end;

funktioniert nicht (nicht genügend Parameter).

Wie kann ich die bereits bestehende Prozedur verwenden? Oder muss ich diese in eine eigene Prozedur verschieben und danach sowohl vom 'OnClick' - als auch vom 'KeyDown' Ereignis aufrufen?