Помогите с наследованием(delphi7)

[pyvlak]

Хочу унаследовать TButton, но у меня не получается выполнить элементарную обработку события.
Вот что у меня сейчас получилось:
TMyButton= class(TButton)
protected
procedure Click; override;
public
constructor Create (AOwner: TComponent); override;
procedure Init(_Parent: TWinControl);
end;

implementation
//----TMyButton----
constructor TMyButton.Create (AOwner: TComponent);
begin
inherited;
end;
//Задаем параметры кнопки
procedure TMyButton.Init(_Parent: TWinControl);
begin
Parent:= _Parent;
Font.Size:= 10; Caption:= 'My Button';
Left:= 552; Top:= 552;
Width:= 129; Height:= 33;
ShowHint := true;
end;

procedure TMyButton.Click;
begin
inherited;
Caption:= '!';
end;

И вот сама реализация:
MyBut:= TMyButton.Create(Form1);
MyBut.Init(Form1);
Помогите дополнить TMyButton так, чтобы через свою кнопку я мог по щелчку мыши делать, например, то же самое:
procedure TForm1.FireButtonClick(Sender: TObject);
begin
Timer1.Enabled:=not Timer1.Enabled;
end;

p.s. Если возможно показать с примером риализации.

 

[etc]

Еще 5 таких тем и вас поругают.

 

[sinkopa]

Ссылка скрыта от гостей