Неработает обработчик нажатия кнопки

// окно главной сетки таблиц - в BC6 - красиво выглядит Flat рамка
pBoxMainGrid              = new TScrollBox(WindowMain);
pBoxMainGrid->Parent      = PanelTable;
pBoxMainGrid->Align       = alClient   ;
pBoxMainGrid->AutoSize    = false      ;
pBoxMainGrid->BevelWidth  = 2          ;

// сетка таблицы
DBGMain                   = new TDBGrid(WindowMain);
DBGMain->Parent           = pBoxMainGrid;
DBGMain->Align            = alClient    ;
DBGMain->BorderStyle      = bsNone      ;
DBGMain->DefaultDrawing   = false       ;
DBGMain->OnDrawColumnCell = DBGMainDrawCell ;
DBGMain->OnMouseMove      = DBGMainMouseMove;

TButton*  BtnTecDoc       = new TButton(WindowMain);
BtnTecDoc->Parent         = DBGMain               ;  // pBoxMainGrid;
BtnTecDoc->Caption        = "T"                   ;
BtnTecDoc->OnClick        = BtnTecDocClick;

void __fastcall BWindowMB2::BtnTecDocClick (TObject *Sender)
{
  ...
}