Prüfen ob mehrere Checkboxen = checked

[Helmi]

eigentlich dürft das ja so funktionieren:

Variante 1:
-----------

Delphi-Quellcode:

var 
  i: Integer;
  b: Boolean; 
begin 
  b := false;
  for i := 0 to ControlCount -1 do 
  begin 
    if Controls[i] is TCheckBox then 
      b := b or (TCheckBox(Controls[i]).Checked); 
  end; 

 If b then
   ShowMessage('ja, eine CheckBox war gechecked!');
end;

Variante 2:
-----------

Delphi-Quellcode:

var 
  i: Integer;
  b: Boolean; 
begin 
  b := false;
  for i := 0 to ControlCount -1 do 
  begin 
    if Controls[i] is TCheckBox then 
      b := TCheckBox(Controls[i]).Checked; 

    If b then
      break;
  end; 

 If b then
   ShowMessage('ja, eine CheckBox war gechecked!');
end;