Prüfen ob mehrere Checkboxen = checked

[SaFu]

So geht es auch oder ist das nicht so gut

Delphi-Quellcode:

Var i: Integer;
begin
  for i := 0 to ControlCount -1 do
  begin
    if Controls[i] is TCheckBox then
     if TCheckBox(Controls[i]).Checked then
       begin
       ShowMessage('Hallo');
       end;
  end;
end;

// Edit Ok deins ist besser hab den Fehler bei mir bemerkt