for i:=0 to form1.ComponentCount-1 do begin if Tcomponent[i] is Tcheckbox then if (Tcomponent[i] as Tcheckbox).checked then // end;
----------------------------------------------
-
for i := 0 to ControlCount - 1 do begin if Controls[i] is TCheckBox then if TCheckBox(Controls[i]).Checked then // Do something end;
----------------------------------------------