como me ubico en la posicion de un registro buscado en un tsdbgrid

[Ricsato]

Hola, me gustaria que alguien me pudiera ayudar respecto a como mostrar la informacion en un renglon de un tsdbgrid.

tengo un query (QDetalle) y un datasource (DSDetalle) donde tengo la informacion que muestra mi componente tsdbgrid, en mi primer columna, tengo mi codigo de producto que seria mi llave primaria, entonces cuando tecleo un codigo de producto que ya existe hago la siguiente instruccion:

If QDetalle.locate('Pro_Codigo', vlpcodigo, [locaseinsensitive]) then
....

con esta instruccion el apuntador del grid se va a hacia donde esta el registro que introduje y ahi se posiciona, pero el problema es cuando son muchos registros que no se ven en una sola pantalla, este apuntador se va hasta el inicio (por ejemplo) y en mi pantalla yo sigo viendo mi ultimo registro en donde estaba tecleando el codigo y no puedo ver hasta donde se fue el apuntador, hasta que lo busque con el boton avance de pagina.

La pregunta es, como puedo hacerle para que cuando se vaya el apuntador del grid a posicionarse a la ubicacion de un codigo que este repetido, pueda tambien moverse mi pantalla y mostrarme los datos de ese renglon, sin tener que ir yo a buscar hasta donde se fue mi apuntador?

De antemano, gracias por sus opiniones.

Saludos desde Mexicali, B.C., Mexico.
Ricardo.