Parcour d'un composant TGroupBox

Bonjour.
Voila mon probème.
Je possede une GroupBox et a l'interieure de celle-ci je dispose de plusieurs TCheckBox.
Je voudrai parcourir ma TGroupBox afin de pouvoir changer tout le "Caption" de tous mes TCheckBox, quelqu'un aurait-il une idee?
En Gros je voudrai faire

for ...
GroupBox->TCheckBox[i]->Caption="..."
end
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

void __fastcall TForm1::Button1Click(TObject *Sender) { int I; TCheckBox *ChildControl; for (I = 0; I < GroupBox1->ControlCount; I++) { ChildControl = (TCheckBox *)GroupBox1->Controls[I]; ChildControl->Caption = "Case N°" + String(I+1); } }

---

J'avoue facil pour toi!!
En tout cas merci bien