Подключение процедур к созданным компонентам

...я могу порекомендовать перекрыть события по-умолчанию KeyPress, Click, DblClick и прочие. Вот пример того, как можно перекрыть процедуру Click:

(Объявление в секции класса protected)

procedure Click ; override ;

(Следующий код должен располагаться в секции implementation)

procedure GOKButton.Click ;
begin
inherited Click ; (Owner as TForm).Close ; end ;

[001991]