checkbox问题

Question

我在一个窗体上放了7个checkbox，还有一个按钮，我想实现：如果这些复选框没有一个选中的话，点击按钮提示先选择。

Answer 1

if (not Checkbox1.Checked) and (not Checkbox2.Checked) and .... then  ShowMessage('Damn!');

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
begin
  j:=0;
  for i:= 0 to form1.ComponentCount-1 do
    if form1.Components[i] is Tcheckbox then
      if (form1.Components[i] as Tcheckbox).Checked  then
        j:=1;
  if j=0 then
    showmessage('请先进行选择！')
end;