Один обработчик для 100 кнопок?

void __fastcall TFChoice::Button1Click(TObject *Sender)
{
        ActionClickButtonExecute(Sender);
}
.
.
.
.
void __fastcall TFChoice::Button100Click(TObject *Sender)
{
        ActionClickButtonExecute(Sender);
}

 TButton *ptButton;
 ptButton=(TButton*)Sender;
 iButNom = ptButton->Tag;

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

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TButton *Button2;
    TButton *Button3;
    TButton *Button4;
    TButton *Button5;
    TButton *Button6;
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    void __fastcall MyClick(TObject * Sender); // !!!!!!!!!!!!!!!!!!!!!!!! вот он!!!!!!!!!
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) // конструктор формы
    : TForm(Owner)
{
    for(int i = 0; i < this->ComponentCount; i++) // перебираем все компоненты на форме
    {
        /* если этот компонент "TButton", то присваиваем ему свой обработчик "MyClick"
         конечно можно еще добавить например:
        if(this->Components[i]->Tag != 0) ну и так далее и тому подобное
        */
        if(this->Components[i]->ClassName().operator AnsiString() == "TButton")
        {
            TButton *button = dynamic_cast<TButton*>(this->Components[i]);
            button->OnClick = MyClick; // назначаем действие
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MyClick(TObject * Sender) // вот собстно и он (обработчик OnClick)
{
    TButton *button = dynamic_cast<TButton*>(Sender);
    // ShowMessage(button->Tag); я теги прописывать не стал поэтому Caption
    // ShowMessage(button->Caption ); 
    ActionClickButtonExecute(Sender); // это ваша ф-ция
    // хотя можно ее вообще в цикле в конструкторе формы прописать, вместо 
    // "button->OnClick = MyClick;" написать "button->OnClick = ActionClickButtonExecute;"
}
//---------------------------------------------------------------------------

if(this->Components[i]->ClassName().operator AnsiString() == "TButton")
{
  TButton *button = dynamic_cast<TButton*>(this->Components[i]);

TButton *button = dynamic_cast<TButton*>(this->Components[i]);

for(int i = 0; i < ComponentCount; i++) { 
  TButton* button; 
  button = dynamic_cast<TButton*>(Components[i]);// откуда известно что это TButton?
  if (button->Tag == 1) { //или button->Tag == i и т.д.
    ShowMessage("Однако, кнопка с тегом 1, чукчи..."); 
  }
}

if (dynamic_cast<TButton*>(this->Components[i]))
    ...

button = dynamic_cast<TButton*>(FindComponent(String("Button")+(i+1)));
  if (button  == 0) return;