for i := 0 to ComponentCount - 1 do begin if Components[i] is TCheckBox then TCheckBox(Components[i]).Checked:=True end;