Генерация события компонента

Button1->OnClick;

Button1->Perform(WM_..., ..., ...);

 TButton Tmp = *Button1;
 Button1Click(&Tmp);

void __fastcall TForm1::Button2Click(TObject *Sender)
{
       if (((TButton *)Sender)->Tag == 12)
          ShowMessage("Äâåíàäöàòü");
       if (((TButton *)Sender)->Tag == 17)
          ShowMessage("Ñåìíàäöàòü");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Click(TObject *Sender)
{
      TButton *bu = new TButton(this);
      bu->Parent = Form1;
 
      if (Edit1->Text == "1")  { bu->Tag = 12; Button2Click(bu); } ;
      if (Edit1->Text == "2")  { bu->Tag = 17; Button2Click(bu); } ;
      delete bu;
}

 ListBox1->OnChange;
 Button2->OnClick;
 ListBox2->OnSelect;
 Button3->OnClick;

 Button1->OnClick(Button1);

Button->Click();

Button1->OnClick(Button1);

Button1->FOnClick = B1Click;

    TComponent *Component = ... //тут подопытный компонент
    TPropList *pList;
    TPropInfo *pPropInfo;
    UnicodeString Event, TypeEvent;
    int count = GetPropList((TTypeInfo *)Component->ClassInfo(), tkMethods, NULL, false);  //получаем общее число методов
    try {
        pList = (TPropList *)new char[count*sizeof(void *)];
        GetPropList(PTypeInfo(Component->ClassInfo()), tkMethods, (Typinfo::PPropList)pList);
        for(int i = 0; i < count; ++i) {//Получаем описание конкретного метода
            pPropInfo = (TPropInfo *)pList->data[i];
            Event = pPropInfo->Name.operator AnsiString();
            TypeEvent = PTypeInfo(*pPropInfo->PropType)->Name.operator AnsiString();
            //TypeEvent = VarToStr(GetPropValue(Component, Event));
        }
    } __finally {
        delete [] pList;
    }