Modifier la propriété Checked de plusieurs TCheckBox

Salut,

J'ai un formulaire qui contient 12 Checkbox que je veux cocher et décocher suivant l'état d'un trezième.
Pour ne pas coder Checkbox1 := Checkbox13;
Checkbox2 := Checkbox13;
Checkbox3 := Checkbox13;
.......
.......
je cherche un moyen plus élégant de le faire dans une boucle.

Quelqu'un aurait-il une idée ?

Merci

Code:

---

1 2 3 4 5 6 7 8 9 10

Var i : Integer; Begin   For i := 0 to Form1.ComponentCount-1 do begin If (Form1.Components[i] IS TCheckBox) then TCheckBox(Form1.Components[i]).Checked := CheckBox13.Checked; end;

---

Un truc comme ca peut etre!

Merc pour la solution