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