посмотри как сделаны события у TActiveFormX, метод Initialize:
Код:
procedure TActiveFormX.Initialize;
begin
inherited Initialize;
OnActivate := ActivateEvent;
...
далее:
Код:
procedure TActiveFormX.ActivateEvent(Sender: TObject);
begin
if FEvents <> nil then FEvents.OnActivate;
end;
Код:
FEvents: IActiveFormXEvents;