Динамическое создание компонентов и событий для них

TCppWebBrowser* newbrowser[200];
newbrowser[num] = new TCppWebBrowser(PageControl1);
newbrowser[num]->TOleControl::Parent = newtab;
newbrowser[num]->TOleControl::Name = AnsiString("CppWebBrowser")+IntToStr(PageControl1->PageCount)+1;
newbrowser[num]->TOleControl::Align = alClient;

map<int, TButton*> h;
 void __fastcall bvg(TObject *Sender,
      TShiftState Shift, int X, int Y);

for(i=0; i<Edit1->Text.ToInt();i++)
 {
 T=new TButton(this);
 T->Parent=this;
 T->Left=30;
 T->Top=40+30*i;
 T->Caption="Кнопка " + IntToStr(i);
  h[i]=T;
  //T->OnClick=Click;
  h[i]->OnClick=Form1->Click;
  h[i]->OnMouseMove=Form1->bvg;
 
  assert(i<3);
 }

void __fastcall TForm1::Click(TObject *Sender)
 
{
 
      // TButton* T = dynamic_cast<TButton*>(Sender);
        if(Sender==h[2])
      ShowMessage("df" + IntToStr(1));
 
 
}

void __fastcall TForm1::bvg(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
 
         if(Sender==h[1])
         {
      ShowMessage("dfer" + IntToStr(1));
       //Edit1->Text=E(2);
          }
}

SenderName->Add(IntToStr(AnswerBtn->GetHashCode()));

if(SenderName->Strings[0]==IntToStr(Sender->GetHashCode()))
        {
            ShowMessage("Работает");
        }

    TButton *btn = (TButton*)Sender;
        btn->Tag;

    int tag = ((TButton*)Sender)->Tag;