Eigene Komponente (TNA-Icon) und TNotifyEvent

[ManuMF]

So, es funktioniert soweit (nach einigen Fehlversuchen ).

ABER: Es gibt ein Problem. Assigned ist immer true . Der Code:

Delphi-Quellcode:

procedure TTrayIcon.DoClick(Sender: TObject);
begin
  if Assigned(FOnClick) then FOnClick(Sender); // führt zu Zugriffsverletzung
  if Assigned(FOnClick) then showmessage('Ist assigned'); // -> Jeder Klick zeigt Meldung an, auch wenn in OnClick nichts drin steht
end;

Wie kann ich das beheben?

Danke,
ManuMF