Назначение события динамическому компоненту

[Luxor]

Есть две формы
В первой есть процедура (в разделе public) procedure Proc1;

Код: Выделить всё

public
procedure Proc1;

.....
.....
.....
rpocedure TForm1.Proc1
begin
ShowMessage('Hi!!!');
end;


Во второй форме создаю динамически поле ввода Edit.
Можно ли присвоить событию OnEnter компонента Edit функцию Proc1 из первой формы?

[Mr.Smart]

Код: Выделить всё

  TForm1 = class(TForm)
...
  public
   procedure Proc1(Sender: TObject);
....

var
  From1: TForm1;

procedure TForm2.CreateEdit...
....
  edit1:=TEdit.Create(self);
  edit1.OnEnter:=@Form1.Proc1;
....