Событие при не выделенных CheckBox

[Shouldercannon]

Если все четыре CheckBox не выделены, то при выделении CheckBox5 сделать

ShowMessage('Ни один из четырёх CheckBox не выделен');

Как такое сделать. Пробовал с с or и and, но не сработало

[DIgorevich]

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
if checkbox1.Checked=false then
  if checkbox2.Checked=false then
    if checkbox3.Checked=false then
      if checkbox4.Checked=false then
        ShowMessage('Ни один из четырёх CheckBox не выделен');
end;

[Don Karleone]

if CheckBox5.Checked
  then
    if (not CheckBox1.Checked) and (not CheckBox2.Checked) and 
      (not CheckBox3.Checked) and (not CheckBox4.Checked)
      then ShowMessage('Ни один из 4 чекбоксов не выделен')

[Shouldercannon]

Хм оказалось проще некуда.

[Shouldercannon]

Как сделать туже проверку 4-х ComboBox, только через Components?

procedure TForm13.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[I] is TCheckBox then
    begin
      if not (Components[I] as TCheckBox).Checked then
      begin
        ShowMessage('Нет выделенных CheckBox');
        Break;
      end;
    end;
  end;
end;

Явно ошибка в логике, не работает должным образом

[northener]

procedure TForm13.Button1Click(Sender: TObject);
var
  I: Integer;
  YesChecked : Boolean;
begin
  YesChecked:=False;
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[I] is TCheckBox then
    begin
      if (Components[I] as TCheckBox).Checked then
      begin
        YesChecked:=True;
        Break;
      end;
    end;
  end;
  if not YesChecked then ShowMessage('Нет выделенных CheckBox');
end;

[Аватар]

  b:=False;
  for I := 0 to ComponentCount - 1 do
    b:=b or (Components[I] is TCheckBox and TCheckBox(Components[I]).Checked);
  if not b then ShowMessage('Нет выделенных CheckBox');