Un Evento comun, distintas variables

[[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