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.