eigenge Komponente onClick

[BAMatze]

Hallo,
hast du mal versucht die OnClick-Proceduren deiner Einzelkomponenten zu einer gemeinsamen zu einem OnClick-Event der Gesamtkomponente zusammen zu fassen? Hab mal aus dem Kopf versucht einen groben Quellcode zu erstellen (weiß also nicht ob es so funktioniert)

Delphi-Quellcode:

Type TMyComponent = Class(TWinControl)
  private
    ...
    FOnClick: TNotifyEvent;
    
    procedure FLabelOnClick(Sender: TObject);
    procedure FImageOnClick(Sender: TObject);
    ...
  published
    property OnClick: TNotifyEvent read FOnClick write FOnClick;
    ...
End;
...

// Zuweisung der FLabelOnClick auf das eigentliche OnClick-Event nicht vergessen! Für Image ebenso

procedure TMyComponent.FLabelOnClick(Sender: TObject);
begin
  if assigned(FOnClick) then FOnClick(Self);
end;
// Das ganze nochmal für das Image

Denke mal so könnte das funktionieren.

MfG
BAMatze