Balayage de CheckBox

Bonjour à tous.
J'ai créé dans un GroupBox un certain nombre de CheckBox de façon dynamique. Ces CheckBox sont nommés dynamiquement CheckBox1, CheckBox2, etc...
Je souhaite à présent les balayer pour savoir si l'un d'entre eux est coché.
Voici les deux codes que j'ai essayé et qui me renvoient un message de violation d'adresses (dans ces deux codes, la variable privée LastCreatedIndex contient l'index du dernier CheckBox créé dynamiquement).

Code n°1 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 var UnItemAuMoinsChecked:boolean; i:integer; NomCheckBox:TCheckBox; begin UnItemAuMoinsChecked:=False; for i:=1 to LastCreatedIndex do begin NomCheckBox.Name := Format('CheckBox%d', [LastCreatedIndex]); if NomCheckBox.Checked=True then UnItemAuMoinsChecked:=True; end; if UnItemAuMoinsChecked=True then ShowMessage('Coché') else ShowMessage('Pas coché');
Code n°2 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 var UnItemAuMoinsChecked:boolean; i:integer; AControl: TControl; begin UnItemAuMoinsChecked:=False; for i:=1 to Pr_LastCreatedIndex do begin AControl.Name := Format('CheckBox%d', [Pr_LastCreatedIndex]); if TCheckBox(AControl).Checked=True then UnItemAuMoinsChecked:=True; end; if UnItemAuMoinsChecked=True then ShowMessage('Coché') else ShowMessage('Pas coché');
J'ai comme l'impression d'être encore très loin d'avoir tout compris à la POO :(
Amicalement.
Alain

Pour ma parrt je ferais de la manière suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
var
  i : integer;
  bUnItemCheck : Boolean;
begin
  bUnItemCheck := False;
  for i := 0 to GroupBox1.Controlcount -1 do
  begin
    if GroupBox1.Controls[i] is TCheckBox then
      if TCheckBox(GroupBox1.Controls[i]).Checked then
      begin
        bUnItemCheck := True;
        Break; // quitte la boucle car on a trouvé une des checkbox de cocher
      end;
  end;
   if bUnItemCheck =True then
    ShowMessage('Coché')
  else
    ShowMessage('Pas coché');
end;

Bravo Malatar !
C'est magique, ça marche sans coup férir ! :)
Merci pour la rapidité et la qualité de ta réponse.
Bien cordialement.

Alain