Un Evento comun, distintas variables

[[FGarcia]]

Bien, pues al revisar lo que habia hecho me di cuenta que coloque los checkbox dentro de un panel (en realidad dos paneles con 4 checkbox cada uno) y estos a su vez dentro de un GroupBox, ¿Como saber que checkBox esta seleccionado? Facil, tambien esta la respuesta en club Delphi, en este caso añadi un memo para ver los valores.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var 
  Check: TcheckBox;
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if Components[i] is TCheckBox then
    begin
      Check := Components[i] as TCheckBox;
      if Check.Checked then
        Memo1.Lines.Add(Check.Name  + ' = True')
      else
        Memo1.Lines.Add(Check.Name  + ' = False');
    end
end;

[[FGarcia]]

Otra mas el codigo anterior recorre todos los componentes del formulario buscando los checkbox -"desperdiciando tiempo y ciclos del cpu"- si yo se que estan dentro de un panel bueno pues buscalos solo en los paneles que a su vez estan dentro del groupbox. Asi que cambie el codigo por este

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;

y aqui es donde termina la triste historia de un vaquero enamorado... Me falta saber como recorrer cada panel (en forma individual, este codigo recorre todo lo que se llame Panel y este dentro del radio group) y si hay mas de un checkbox seleccionado active el elemento correspondiente del radio group.


p.d. Con esto tambien subio el numero de menasjes que tengo