OnMouseDown Ereignis bei EigButton (abgeleitet von TPanel)

[Flippo]

Hallo,
ich probiere einen Farbigen Button als eigene Komponente zu programmieren.
Habe erstmal eine neue Komponente von TPanel abgleitet und ein paar Eigenschaften so eingestellt das das Panel wie ein Button wirkt nun muss ich es aber hinkriegen das sich das Panel wie ein Button beim klicken verhält ich schreib einfach mal mein Quelltext dazu rein und dann is mein Problem eigentlich selbserklärend ich bekomm das mit dem OnMouseDown Ereignis in meiner eigenen Komponente nicht hin(Wenn ich Bevelinner über die Unit ändere gehts)

Code:

unit AButton;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TAButton = class(TPanel)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
    constructor Create(AOwner: TComponent); override;
  public
    { Public-Deklarationen }
    procedure OnMouseDown;
    procedure OnMouseUp;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

constructor TAButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
  width:= 100;
  height:=40;
  color:=clyellow;
  bevelinner:=bvRaised;
end;

procedure TAButton.OnMouseDown;
begin
bevelinner:=bvlowered;
bevelouter:=bvlowered;

end;

procedure TAButton.OnMouseUp;
begin
bevelinner:=bvraised;
bevelouter:=bvraised;
end;

procedure Register;
begin
  RegisterComponents('Eigene', [TAButton]);
end;

end.

wäre für Hilfe echt Dankbar.