Un Evento comun, distintas variables

[[FGarcia]]

Tienes razón Dec!

De hecho era un copiar y pegar del codigo entre comentarios que funcionaba Ok, no me fije que el Check no existia en el otro codigo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 i,j: integer;
begin
  {/* Adaptacion de este hilo
      http://www.clubdelphi.com/foros/show...light=checkbox
  */}
  for i:= 0 to GroupBox1.ControlCount - 1 do
    if GroupBox1.Controls[i] is TPanel then
      with TPanel (GroupBox1.Controls[i]) do
        for j:= 0 to ControlCount - 1 do
          if Controls[j] is TCheckbox then
            if (Controls[j] as TCheckBox).Checked then
              Memo1.Lines.Add((Controls[j] as TCheckBox).Name  + ' = True')
            else
              Memo1.Lines.Add((Controls[j] as TCheckBox).Name  + ' = False');
end;

La aplicacion tiene dos paneles Panel1 y Panel2 ¿como haria un recorrido individual de cada uno de ellos para saber si mas de un checkbox esta seleccionado en cada panel?

Adjunto el codigo completo ya corregido. Sigo escuchando. Gracias.

p.d. En el mensaje antepenultimo tambien esta el codigo original. No encuentro como eliminar el zip para que no se repita.