遍历窗体中的组件checkbox

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

end;

  with Panel2 do
  begin
    for i:=0 to Panel2.ControlCount-1 do
    begin
      if Controls[i] is TCheckBox then
      begin
        showmessage(Trim(TCheckBox(Controls[i]).Caption));
      end;
    end;
  end;