FoxPro/Visual FoxPro - Ayuda con delete all

Hola, buenos días,

Les pido su ayuda en el siguiente codigo programado en el click de un botón, lo que intento es borrar todos los registros de la tabla al dar clic en el botón. Les explico, con un clic sobre el botón los registros no se marcan para ser borrados, debo dar dos clic seguidos para que puedan ser marcados y eliminados definitivamentes de la tabla.

select mitabla
IF RECCOUNT('mitabla')>0
DELETE ALL
SET EXCLUSIVE on
USE mitabla
PACK
Messagebox("OK, Tabla limpia")
ELSE
Messagebox("No hay datos para eliminar")
endif

Usa el ZAP:
*
select mitabla
IF RECCOUNT('mitabla')>0
SET EXCLUSIVE on
ZAP
SET EXCLUSVE OFF
Messagebox("OK, Tabla limpia")
ELSE
Messagebox("No hay datos para eliminar")
endif
*
Este comando limpia la tabla dejando intacta la estructura.