Code:

var i: integer;

begin

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

for i := 0 to ComponentCount - 1 do

   if Components[i] is TCheckBox then

     (Components[i] as TCheckBox).Checked := true;

end;