CheckGrp - ComboBox - Item Problem

[DeddyH]

Zitat:

Delphi-Quellcode:

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
  i:integer;
  hilf:boolean;
begin
  hilf:=false;
  for i:=1 to Form1.CheckGroup1.Items.Count do
    if Form1.CheckGroup1.Checked[i]:=true;
    then hilf:=true;

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

-->

Delphi-Quellcode:

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

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

Wobei mein Delphi(5) hier keine Checkgroup kennt