Zwei-mal onmousedown?

[maximi]

Also, das ist jetzt mein verkützter Komponenten Quellcode:

Delphi-Quellcode:

   procedure buttonskinonmousedown(Sender: TObject; Button: TMouseButton;
                             Shift: TShiftState; X, Y: Integer);
    { Public-Deklarationen }
  published


    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure TButtonskin.buttonskinonmousedown;
begin
  ImageList1.GetBitmap(1,Picture.Bitmap);
  Refresh;
end;



constructor TButtonskin.set_koordinaten;

begin

  TButtonskin.Create(self);
  Parent := parent;
  OnMouseDown := buttonskinonmousedown;


end;

So und das ist mein Form Quellcode:

Delphi-Quellcode:

procedure TForm1.Buttonskin1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
showMessage('asd');
end;

Wenn ich in meinem Form auf meinen Buttonskin clicke, verändert sich das Bild, aber ich bekomme keine Message.

Danke!