Invalid Class Typecast

[[FGarcia]]

Hola!

Este procedimiento funciona sin problemas en su propio form el cual consta de un groupbox y seis checkbox:

Código Delphi [-]
for i := 0 to 5 do
    if (GroupBox1.Controls[i] as TCheckBox).Checked then
        borrando[i] := i + 1;

pero este otro en su form no funciona:

Código Delphi [-]
for i := 0 to Panel1.ControlCount - 1 do
    if (Panel1.Controls[i] as TCheckBox).Checked then
        agrupa[i] := i + 1;

este ultimo es un groupbox con tres panels y cada panel con 6 checkbox, el mensaje de "Horror":

---------------------------
Debugger Exception Notification
---------------------------
Project TCP_WinTool.exe raised exception class EInvalidCast with message 'Invalid class typecast'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

a que se debera el "horror"? ya probe en vez de Panel1 el groupbox y el mensaje es el mismo.

Gracias por la ayuda que me puedan prestar