[Помидоркин]

Создаю форму динамически:

Код:

1 2 3 4 5 6 7 8 9

type   TFrmOutPut = class(TForm)    lblLink: TLabel;   private //----------------------------   public    constructor CreateMy(AOwner: TComponent); //----------------------------   end;

нужно написать обработчик TLabel.Click
можно, наверное, наследовать от TLabel (или правильнее от TCustomLabel) и перегрузить нужную процедуру, но создавать ради этого новый класс как-то не то.
Есть какие-нибудь варианты?