Eigene Komponente (TNA-Icon) und TNotifyEvent

[ManuMF]

Hallo,

ich möchte mir eine eigene Komponente für ein TNA-Icon erstellen. Das Icon soll auch ein onClick-Event besitzen. Wie kann ich das realisieren? Bisher habe ich folgendes (nur relevante Code-Stellen):

Delphi-Quellcode:

type
  TTrayIcon = class(TComponent)
  private
    ...
    procedure WMTaskbarEvent(var Message: TMessage); message WM_TASKBAREVENT;
      // Habe ich aus Code-Beispielen, funktioniert auch, zumindest bei Forms
  protected
    ...
    FOnClick: TMNotifyEvent;
  public
    ...
    property OnClick: TNotifyEvent read FOnClick write FOnClick;
  end;

...

procedure TTrayIcon.WMTaskbarEvent(var Message: TMessage);
begin
  case Message.LParamLo of
    WM_LBUTTONDBLCLK:
      ...
    WM_RBUTTONDOWN:
      ...
  end;
  // So habe ich es bisher gemacht. In RBUTTONDOWN habe ich dann z.B.
  // ein PopupMenu geöffnet.
  // Aber wie kann ich es hier an das Event weitergeben?
end;

Danke,
ManuMF