FoxPro/Visual FoxPro - Grid: Busqueda incremental, posicionar registro

Que hay...

Tengo una busqueda incremental con un textbox y un grid, la busqueda funciona perfecto, solo que me gustaria que el registro que tiene el puntero quedara siempre en la primera fila del grid, siempre me muestra el registro actual a la mitad del grid, alguna idea de como hacerlo?

espero te sirva a mi me funciona de maravill ay siempre me pone el registro en el Go top de la tabla...

THISFORM.grdResult.TAG = THISFORM.grdResult.RECORDSOURCE
THISFORM.grdResult.RECORDSOURCE = ""

*-- Invoco a la funcion Buscar en MiLib.prg
IF NOT Buscar(THISFORM.txtBuscar.VALUE, "Result")
MESSAGEBOX("No se encontraron coincidencias", 48, "Aviso")
ENDIF

THISFORM.grdResult.RECORDSOURCE = THISFORM.grdResult.TAG

Gracias, pero la busqueda que utilizo es esta:
en el interactiveChange del textbox
BUSCA=TRIM(THISFORM.TEXT1.VALUE)
SEEK BUSCA
IF FOUND()
THISFORM.GRID1.SETFOCUS
THISFORM.TEXT1.SETFOCUS
ENDIF

Me funciona exactamente como yo quiero, solo necesito que el registro con el puntero lo coloque siempre en la primera fila del grid.

BUSCA=TRIM(THISFORM.TEXT1.VALUE)
SEEK BUSCA
IF FOUND()
GO TOP &&& AGREGE ESTO Y SI ME FUNCIONA A MI
THISFORM.GRID1.SETFOCUS
THISFORM.TEXT1.SETFOCUS
ENDIF