Dostęp do komponentów przez pętlę

Aby po kliknięciu przycisku Button1 zmienić za "jednym zamachem" właściwość Caption (lub inną) 10 komponentów TButton (lub innych komponentów) należy skorzystać z funkcji FindComponent, której podajemy jako parametr nazwę komponentu, u nas będą to komponenty: Button2, Button3, Button4, ..., Button11::

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   for (int i = 2; i <= 11; i++)
      dynamic_cast<TButton*>(FindComponent("Button" + IntToStr(i)))->Caption = "Hetman";
}