Собственная функция вместо ButtonClick

for (int i = 1; i <= ADOTable1->RecordCount; i++) {
                Btn[i] = new TButton(UserMain);
                Btn[i]->Parent = UserMain;
                Btn[i]->Left = 240 + (220 * (i - 1)) * c;
                Btn[i]->Top = k * 270;
                Btn[i]->Name = "Button" + IntToStr(i);
                Btn[i]->Caption = "Подробнее";
}

void showAbout(int i) {
        ShowMessage(i);
}
//и в предыдущем цикле такое:
Btn[i]->OnClick = showAbout(i);

void __fastcall TForm1::MyClick(TObject* Sender)
{
    // а вот тут в зависимости от Sender-а (или, например, от static_cast<TButton*>(Sender)->Tag) и выдавать разные сообщения.
}
 
// и назначать:
Btn[i]->OnClick = MyClick;

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    // здесь компоненты - не трогаем
 
private:
    void __fastcall MyClick(TObject* Sender); // <--- Вот это нужно сделать
public:
    __fastcall TForm1(TComponent* Owner);
};

TButton *Btn[3];
 
void GenTable() {
        for (int i = 1; i <= 3; i++) {
                Btn[i] = new TButton(Form1);
                Btn[i]->Parent = Form1;
                Btn[i]->Left = 10 + i * 100;
                Btn[i]->Top = 10;
                Btn[i]->Name = "Button" + IntToStr(i);
                Btn[i]->Caption = "Подробнее";
                Btn[i]->OnClick = MyClick;
        }
}
 
void __fastcall TForm1::FormCreate(TObject *Sender) {
        GenTable();
}
 
void __fastcall TForm1::MyClick(TObject *Sender) {
        ShowMessage("test");
}

private:
        void __fastcall MyClick(TObject *Sender);