Событие при создании компоненты.

[Ingushit]

Мне нужно описать событиe MouseDown, не могу понять как его объявить. Как объявлено ниже в коде не работает. Вообщем вот:

unit QBB1;

interface

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


type
TResBut = (False, True);
TBB1 = class(TButton)

private
{ Private declarations }
FResBut : TresBut;

protected
{ Protected declarations }

procedure MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer); //override;

public
{ Public declarations }

published
{ Published declarations }

constructor Create(aowner:Tcomponent);override;
property ResBut: TResBut read FResBut write FResBut;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Standard', [TBB1]);
end;

constructor TBB1.create(Aowner:Tcomponent);
begin
inherited create(Aowner);
end;

procedure TBB1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Caption:=',jf,kvf,j';
end;

end.

[Прик]

В нашем случае override обязателен.
Первый параметр (Sender) здесь ни причем, а потому не нужен.
Желательно вызывать и событие предка:

procedure TBB1.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  Caption:=',jf,kvf,j'; 
end;

Хотя предок, зависит от поставленной задачи.
После этого несложного препарирования кода - событие будет замечательно событиться.

[Ingushit]

спасибо, все заработало