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

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

Код:

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

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