Campos booleanos en StringGrid con CheckBox

[Jetzuvely21]

Buscando en los hilos, esto es lo que necesito, como bien explica Caro en una duda que ella tenía en las labels, lo mio con checkbox.

http://www.clubdelphi.com/foros/showthread.php?t=21387

Caro:"En este evento onclick me gustaria poder saber cual de los labels creados esta siendo presionado, quiero recuperar el nombre del label presionado, mi problema es que cada vez que hago click en los labels creados siempre me recupera el nombre del ultimo label creado".

Con la exepción de que cuando yo doy click en el checkbox creado no pasa nada ....solo al momento de ejecutar el programa..muestra los mensajes. Lo implementé asi, pero sigue sin funcionarme

Código Delphi [-]
procedure TForm1.ClickLabels(Sender: TObject);
begin
  if Sender is TCheckBox then
  case TCheckBox(Sender).Tag of
    1: ShowMessage('primer ');
    2: ShowMessage('segundo ');
    3: ShowMessage('tercero ');
    4: ShowMessage('cuarto');
  end;
end;

[Jetzuvely21]

Bueno, ya he logrado resolver mi duda, gracias a quienes prestaron interés y contestaron.
Se agradece!

[Jetzuvely21]

Les comparto el código final, esperando que a alguien le sirva.

Código Delphi [-]
//Procedimiento para saber cuando el checkbox creado en tiempo de ejecución se marca
//y desmarca.
procedure TForm1.ClickLabels(Sender: TObject);
var
ACheck: TCheckBox;
a : string;
begin
  if (Sender is TCheckBox) then
  begin
    ACheck := TCheckBox(Sender);
    if ACheck.Checked  then
      ShowMessage(ACheck.Name + ' SI está seleccionado')
    else
      ShowMessage(ACheck.Name + ' NO está seleccionado');
  end;
end;

Y el error que tenia, del porque no me tomaba el tag... era por esta instrucción.

Código Delphi [-]
NewCheckBox.Parent := StringGrid1;La cual cambie por
NewCheckBox.Parent := Self;

Y pues la lectura de la BD para estos campos de tipo booleano, se asignan al StringGrid por posicion (x,y). Y se hace la respectiva validación if campo.AsBoolean = True then...'1' else '0'.

Saludos!