FoxPro/Visual FoxPro - Necesito eliminar un registro

Necesito eliminar un registro de un a tabla libre estoy ingresando la intruccion
If MessageB('¿Esta seguro desea eliminar este registro?',292,'Advertencia')=6
Delete
Go Top
EndIf
Thisform.Refresh
Pero este no se elimina que sucede

Mejor Asi:

Borrar= Messagebox("Esta seguro que desea eliminar este registro?",4+48,"Advertencia")
If Borrar=6
Delete
Go Top
Set Deleted On && Oculta los Registros Marcados
EndIf
Thisform.Refresh

Ahora que si quieres borrar definitivamente los registros:

Borrar= Messagebox("Esta seguro que desea eliminar este registro?",4+48,"Advertencia")
If Borrar=6
Delete
pack
Go Top
EndIf
Thisform.Release

Suerte►

Gracias por la ayuda me sirvio

De nada, Cualquier cosa aqui estamos...

Suerte►