Fórum Como contar CheckBox.Checked = True #247720

var
  i: Integer;
begin
  for i := 0 to Form1.ComponentCount -1 do
    if Form1.Components[i].ClassName = ´TCheckBox´ then begin
      if TCheckBox(Form1.Components[i]).Checked then begin
        // seus comandos
      end;
    end;
end;