События динамически созданных объектов

   TButton *btn;    TPageControl *pc;   TTabSheet *ts;
//---------------------------------------------------------------------------
 
void __fastcall TForm10::FormActivate(TObject *Sender)
{
  int type,y;
  pc = new TPageControl(this);
  pc->Parent = this;
 
  Form3->Table2->First();
while (!Form3->Table2->Eof)
 { y=0;
          ts = new   TTabSheet(this);           //Динимически создаем вкладки типов
          ts->Caption = Form3->Table2->Fields->FieldByName("TypeName")->AsString;
          type = Form3->Table2->Fields->FieldByName("TovType")->AsInteger;
          ts->PageControl = pc;
          pc->TabHeight = 40;                  // -------------------------------
          pc->Font->Size=10;
          pc->Width=1500;
          pc->Height=600;
Form3->Table1->First();
while (!Form3->Table1->Eof)
 {
        if (Form3->Table1->Fields->FieldByName("TovType")->AsInteger == type)
        {
          btn = new TButton(this);
          btn->Width = 350;
          btn->Height = 40;
          btn->Parent = ts;
         btn->Left=0;
         btn->Top=(y*41);
         y++;
         btn->OnClick=tm;
        }
   Form3->Table1->Next();
 }
 
   Form3->Table2->Next();
 }
}
 
 
//---------------------------------------------------------------------------
 
 void __fastcall TForm10::tm(TObject *Sender)
{
  ShowMessage("tyojklj");
}

         ID = Form3->Table1->Fields->FieldByName("TovID")->AsInteger ;
         btn->Caption =Form3->Table1->Fields->FieldByName("TovNazv")->AsString ;
         btn->Name = ("bnt" + StrToInt(ID));

btn->OnClick=tm;

void __fastcall TForm10::tm(TObject *Sender)
{
  ShowMessage(btn->Name);
}

 void __fastcall TForm10::tm(TObject *Sender)
{    
Form11->Show();
// куча расчетов, часть данный берется из этой самой Form11
....

 void __fastcall TForm10::tm(TObject *Sender)
{    
Form11->Show(); 
здесь приостановить работу программы, а далее после нажатия кнопки на форме11 продолжать выполнение метода

void __fastcall TForm10::tm(TObject *Sender)
{
    ShowMessage("ID="+IntToStr(((TButton*)Sender)->Tag));
}