OnKeyDown/Press Ereignis bei dynamisch erzeugtem Edit

[Exciter]

Verdammt, ich krieg's nicht hin !
Zur Entwurfszeit kein Problem ...

Code:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Var User : String;

begin
If (Key= (VK_RETURN)) And Not (Edit1.Text='') Then
   begin
    User := 'IrgendEinUser'
    Server1.SendPrivateMsg(User, Trim(Edit1.Text));
    Edit1.Text:='';
end;

Aber wie erstell ich sowas dynamisch ???