[bussianko]

Можно попробовать следующий код:
гдето в начале модуля перед объявлением формы описать такую процедуру:
procedure ButtonClick(Sender: TObject);
после этого в конструкторе формы такой вод код:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  Method: TMethod; 
begin
  Method.Cod:= @ButtonClick;
  Method.Data:= NIL;
  Form1.OnClick:= TNotifyEvent(Method);
  Form2.OnClick:= TNotifyEvent(Method);
end;