Cómo hacer para que muchos checkbox usen la misma función?

[[Chris]]

Lo que hago yo es relacionarlos por la propiedad Tag, por ejemplo los checkboxes de la primera columna llevaría un tag de 0 a 19, los de la segunda de 20 a 39. luego en el eventon OnClick lo utilizo un código como este:

Código Delphi [-]
Procedure Form1.CheckOnClick(Sender:TOnject);
var
I : Integer;
Begin

For i := 0 to Self.ComponentCount - 1) Do
Begin
If (Self.Components[i].ClassType = TCheckBox) and ((TCheckBox(Self.Components[i]).Tag - 20) = TCheckBox(Sender).Tag) Then
TCheckBox(Self.Components[i].Enabled := TCheckBox(Sender).Checked;
end;

end;

Espero te sirva el ejemplo. Saludos