同类控件的统一操作（以TCheckBox为例）

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等。