Hola...
En algunas partes tienes que hacer "casteo" de clases para que tu código funcione...
Código Delphi
[-]
for I := 0 to sbPreguntas.ControlCount - 1 do
begin
vGroupBox := sbPreguntas.Controls[i] as TGroupBox: for J := 0 to vGroupBox.ControlCount - 1 do
begin
if vGroupBox.Controls[J] is TCheckBox then
begin
vCheckBox := vGroupBox.Controls[J] as TCheckBox;
if vCheckBox.Checked then
end
end
end;
Saludos...