[roman]

Intenta algo así:

Código Delphi [-]
var
  GridCoord: TGridCoord;

begin
  GridCoord := StringGrid1.MouseCoord(Mouse.CursorPos.X, Mouse.CursorPos.Y)
end;

GridCoord es un record con las coordenadas de la celda.

// Saludos