[dr. F.I.N.]

Да так же как и в написании компонента:

Код:

type
  TSomeEvent = procedure (SomeParams: ParamsType) of Object;

  TMyComp = class (ParentClass)
  private
    FSomeEvent: TSomeEvent;
    procedure SomeProc;
  public
    property OnSomeEvent: TSomeEvent read FOnEvent write FOnSomeEvent;
  end;

var
  Comp: TMyComp;

procedure  MyEvent(SomeParams: ParamsType);
begin
  ...
  Blah-Blah-Blah
  ...
end;

begin
  Comp := TMyComp.Create;
  Comp.OnSomeEvent := MyEvent;
  .......
  Blah-blah-blah
  ........
  Comp.Free;
end.

Что подчеркнуто - не уверен...не на чем проверить А мозг не варит...