Как определить тип Sender'a объекта при использовании динамически созданных объекитах

  int counter=0;
  for(int i=1; i<4; i++)
  {
    for(int j=1; j<4; j++)
    {
        Cap[counter] = "Êí"+IntToStr(counter);
        Nam[counter] = "But"+IntToStr(counter);
        TButton *butt = new TButton(this);
        butt->Parent = Form1;
        butt->Top = 100+40*i;
        butt->Left = 100+40*j;
        butt->Width = 30;
        butt->Height = 30;
        butt->Caption = Cap[counter];
        butt->OnClick=TestClick;
        butt->Name = Nam[counter];
        butt->Tag = 5+j*i;
        butt->Show();
        counter++;
    }
  }
  TEdit *edt = new TEdit(this);
  edt->Parent = Form1;
  edt->Left = 300;
  edt->Top = 400;
  edt->Name = "myEdit";
  edt->Tag = 1;
  edt->OnClick=TestClick;
  edt->Show();

void __fastcall TForm1::TestClick(TObject *Sender)
{
  ShowMessage(((TButton*) Sender)->Tag);
  ShowMessage(((TButton*) Sender)->Name);
}

if(typeid(Sender)==typeid(TButton*))
{}

  TComponent* tmp = dynamic_cast<TComponent*>(Sender);
  if(tmp->ClassName() == "TButton")...

delete ((TButton*) Sender);

Form1->RemoveControl(((TButton*) Sender));
delete ((TButton*) Sender);

((TButton*) Sender)->Free();

delete Sender;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TObject*obj=(TObject*)Memo1;
delete obj;
}
//---------------------------------------------------------------------------