FoxPro/Visual FoxPro - URGENTE, PROBLEMA CON LOS GRID HELP

En una forma tengo un grid y para que se agreguen registros al grid (que es el detalle) utilizo un boton que tiene el siguiente codigo
THISFORM.GRDedificacion.SETFOCUS
SELE EDIFICACION
APPEND BLANK
REPLA COD_CAT WITH CODCAT
repla correl_edi with 1
THISFORM.GRDedificacion.SETFOCUS
thisform.GRDedificacion.column2.text1.value = ''
thisform.GRDedificacion.column1.text1.setfocus
thisform.GRDedificacion.column1.text1.refresh
thisform.GRDedificacion.column1.text1.setfocus
esto para que siempre se vaya al primer columna en el grid
pero muchas veces el cursor pasa al siguiente registro pero se queda en una columna, en este caso la 6.
pareciera que no hace caso al setfocus.
que hago para que no se quede en esa columna sino que cada vez que se inserte un nuevo registro se vaya para la primera.

Gracias.... please quickly

Yo ocupo algo como lo siguiente... a ver si te sirve ...
sele detalle
append blank
replace numero with space(6), can with 0
thisform.Grid1.Refresh
thisform.Grid1.ActivateCell(recno(),1) <---- Activa la celda ultima en la columna 1 ...

Saludos !

despues del replace, vete al tope de tabla y refresca el grib, solamente eso
APPEND BLANK
REPLA COD_CAT WITH CODCAT, correl_edi with 1
go top
THISFORM.GRDedificacion.refresh