for i := 0 to ComponentCount-1 do if Components[i] is TCheckBox then (Components[i] as TCheckBox).Checked:= true;
Я не понял Вашего вопроса, но всё же Вам на него отвечу!