Invalid Class Typecast

[marcoszorrilla]

Tenia una errata así quedaría la prueba satisfactoria:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
Agrupa:array[0..5]of integer;
begin
  for i:= 0 to High(Agrupa) do
  begin
  Agrupa[i]:=0;
  end;

  for i := 0 to Panel1.ControlCount - 1 do
  begin
    if (Panel1.Controls[i] as TCheckBox).Checked then
    Agrupa[i] := i + 1;
  end;

  for i:= 0 to High(Agrupa) do
  begin
  ShowMessage(IntToStr(Agrupa[i]));
  end;

end;

Un Saludo.