同类控件的统一操做（以TCHECKBOX为例）

https://www.cnblogs.com/gaodu2003/archive/2008/12/15/1355355.html

Procedure UnCheck;

var

  i: integer;

begin

  for i := 0 to GroupBox1.ControlCount-1 do
    begin
    if GroupBox1.Controls[i].ClassName = 'TCheckBox' then
      begin
      TCheckBox(GroupBox1.Controls[i]).Checked := false;
      end;
    end;
end;

特别说明：若是是Form窗口中的元素，可直接使用Controls；不然，须要加上控件的窗口名称，如GroupBox1等。