CheckBox

count:=0;
for i:=0 to ComponentCount-1 do
 begin
 if Components is TCheckBox then
 if (Components as TCheckBox).Checked then
 inc(count);
 end;