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

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

Button1->Tag==Button1->Tag+1;

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

void __fastcall TForm1::Button(TMessage& Msg)
{
  switch (Msg.Msg) {
    case WM_CLICK : {
      for(int i = 0; i < ComponentCount; i++) { 
        TButton* button; 
        button = dynamic_cast<TButton*>(Components[i]);
        if (button->Tag == i) {
          ActionClickButtonExecute(Sender); // не знаю, как оно там у вас организовано
      }
    }
    break;
  }
  ...
}

ActionClickButtonExecute(Sender);

void __fastcall TForm1::Button(TMessage& Msg)
{
  switch (Msg.Msg) {
    case WM_CLICK : {
      for(int i = 0; i < ComponentCount; i++) { 
        TButton* button; 
        button = dynamic_cast<TButton*>(Components[i]); 
        if (button->Tag == 1) { // или switch ... case вместо if
          // действие
        }
        if (button->Tag == 2) {
          // действие
        }
      }
    }
    break;
  }
  ...
}