Eigene Kompo von TButton ableiten? Wie OnClick realisieren?

[winx]

danke!!!

ich habs jetzt mal beides und zwar so:

Delphi-Quellcode:

 
  public
    property Actiongroup: TActionGroup read factiongroup write fActionGroup;

    constructor Create();
    procedure Clicked(Sender:TObject);
    procedure Click();override;

  published

  ...


procedure TAdvActionGlowButton.Click;
begin
  inherited;
  showmessage('CLICKED');
end;

constructor TAdvActionGlowButton.Create;
begin
  self.onClick := Clicked;
end;

Wenn ich nun jedoch einen MyButton erzeuge und auf diese klicke, passiert nix!

Muß ich noch irgendwas verknüpfen???