FoxPro/Visual FoxPro - Borrar registros????

De antemano muchisimas gracias por su ayuda.

Resulta que tengo la siguiente instruccion dentro de un botón:

nres = messagebox("Desea borrar",4+48)
if nres=6
delete IN CONTACTOS_1
end.if

En pantalla no aparece el registro, pero, cuando me voy a la tabla esta solo marcado, pero aún no me lo ha borrardo. Que instruccion debo colocar dentro de la intruccion que les muestro para poder hacerlo?

Si usas un cursor es asi :
Set delete on
Publi rutc,cod
cod=Thisform.Pageframe1.Page1.Text1.Value
DELETE FROM maquina WHERE Alltrim(Rutcliente)=allt(rutc) And Allt(codarticul)=Allt(cod)
clea
Thisform.Pageframe1.Page1.Text1.Value=" "
Thisform.Pageframe1.Page1.Text2.Value=" "
Thisform.Pageframe1.Page1.Text3.Value=" "
Thisform.Pageframe1.Page1.Text4.Value=" "
Thisform.Pageframe1.Page1.Text5.Value=" "
Thisform.Pageframe1.Page1.Text6.Value=" "
Thisform.Pageframe1.Page1.Text7.Value=" "
Thisform.Pageframe1.Page1.Text8.Value=0
Thisform.Pageframe1.Page1.Text9.Value=Ctod("00/00/0000")
**-----------------------------------------------**
Thisform.Refresh

si no usas Sql Así .

Delete for alltrim(rutcliente)=alltrim(rutc)
Pack
* Aqui refrescas *
*--------------------------------------------------------------------
si quieres eliminar todos los registros de la tabla
nombre tabla
Zap

Que tal...
Cuando usas el comando DELETE solo te lo marca para eliminar, si quieres borrarlo por completo debe usar el comando PACK.
Debes tener pendiente que cuando uses el comando pack la tabla debe estar abierta de modo exclusivo.
Ejemplo:
*Elimino
select tabla
delete for valor=ccod
*Abro de forma exclusiva y doy el pack
use tabla excluisive
pack

Byte!!

Nada mas recuerda poner la tabla en uso EXCLUSIVO
Delete for alltrim(rutcliente)=alltrim(rutc)
Pack

Suerte

Cabe mencionar que interactues mejor con Set Deleted a ON u OFF, y cuando veas que es conveniente usar pack, hasta ese momento lo utilices, ya que una vez borrado jamas recuperarás el registro.

Saludos..