Un Evento comun, distintas variables

[[FGarcia]]

Hola!!
Pues tengo este procedimiento para un checkbox, ¿como evitar repetirlo para varios mas? -en este caso solo 12- considerando que el estado de cada uno de ellos se guarda en una variable. Se que debo usar Sender para verificar que componente llamo al procedimiento pero no encuentro como diferenciar la variable donde guardar el estado.

Código Delphi [-]
procedure TfrmGDatos.CheckBox1Click(Sender: TObject);
begin
  If CheckBox1.Checked = True then
     gr1_Var1 := True
  else gr1_Var1 := False;
end;

Gracias por su aporte!!