Foros Club Delphi - Drag & Drop con StringGrid

Hola a todos.

Tengo un problema al arrastrar un registro de un TListView a un StringGrid. Si el StringGrid me cabe entero dentro del formulario no hay problema, pero cuando me desplazo hacia abajo con el scroll y luego intento arrastrar un objeto me lo coloca en una fila incorrecta. El código que utilizo es el siguiente:

Código:

procedure TForm1.GridDragDrop(Sender, Source: TObject; X,

  Y: Integer);

begin

stringgrid.Cells[0,y div stringgrid.defaultrowheight]:='Texto';

end;

El problema está en que "y div stringgrid.defaultrowheight" no devuelve la fila correcta, ya que Y es el valor de la coordenada de la parte visible del grid, ignorando las filas que no se ven.

¿Hay alguna forma de saber la fila del stringgrid en que nos encontramos en el momento de arrastrar un elemento?

Saludos y gracias.