Código Delphi [-] for I := 0 to ControlCount -1 do if Controls[i] is TCheckBox then TCheckBox(Controls[i]).Checked := true;
for I := 0 to ControlCount -1 do if Controls[i] is TCheckBox then TCheckBox(Controls[i]).Checked := true;