problema para detectar el numero de fila en un stringgrid con checkbox

[*Caro*]

Hola, otra forma de obtener la fila del stringGrid podría ser mediante las coordenadas:

Código Delphi [-]
var
 aCol, aRow : Integer;
 punto : TPoint;
begin
 GetCursorPos(punto);
 With StringGrid do
  begin
   MouseToCell(punto.X-ClientOrigin.X, punto.Y-ClientOrigin.Y, aCol, aRow);
   if (aCol>0) and (aRow>0) then
    begin
     Col := aCol;
     Row := aRow;
    end;
   showmessage(IntToStr(Row));
  end;
  ...........................................

Saluditos