CheckGrp - ComboBox - Item Problem

[DeddyH]

Nehmen wir nochmal meinen Code aus #2 und erweitern ihn ein klein wenig:

Delphi-Quellcode:

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
  i:integer;
  hilf:boolean;
begin
  hilf:=false;
  if CheckGroup1.Items.Count < 1 then
    ShowMessage('Es gibt keine Items')
  else
    for i:= 0 to CheckGroup1.Items.Count - 1 do
      if CheckGroup1.Checked[i] then hilf:=true;

  if hilf then Button1.Enabled:=true;
end;

Was kommt dabei heraus?