FoxPro/Visual FoxPro - Error al Eliminar Registro

Hola a todos me da gusto saludarles...
Tengo un problemilla con un form, lo uso en Red.. no puedo borrar un registro me mostra un mensaje que me dice: Debe abrir el archivo en modo exclusivo...

************en el prog. principal de inicio TENGO *****
SET EXCLUSIVE OFF
SET MULTILOCKS ON
SET DELETE ON
SET REFRESH TO 5
SET REPROCESS TO AUTOMATIC
SET EXACT ON
SET DATE TO DMY
CURSORSETPROP("BUFFERING",1,0)
*************************

en el FORM tengo activado el bufferMode=2

***** en el Btn Borrar *****
USE trabajadores INDEX idpersonal shared
Titulo = 'Eliminar Registro'
Texto = '¿ESTA SEGURO DE ELIMINAR ESTE REGISTRO..?'
Tipo = 4 + 32 + 256
resp = messagebox(Texto, Tipo, Titulo)
do case
case resp=6
DELETE FOR Alltrim(Nombre)=Alltrim(cTrabajador)
PACK
Thisform.refresh
Case resp 7
..... otra instruc, ETC.
End Case
*******************************
Ahi les encargo amigos... ya que en yo siento que es al realizar el PACK
SALUDOS

No puedes usar PACK en una tabla abierta de manera compartida.

Es cierto, nunca podras eliminar en una terminal, lo aconsejable sería que lo hicieras desde la pc que sirve como server.., Generalmente, yo le indico al usuario que si desea eliminar algun registro, que al términar este proceso, la pantalla se cerrará y deberá ingresar de nuevo, esto con el fin de abrir de nuevo la base de datos de modo Shared. y con Exclusive =Off

Suerte►

Hola... Plinio.. como estas...??
Oye en el PRG principal llamo a INDICES.PRG.. que indexa las tablas se me ocurre poner ahi el ZAP... para posteriormente proseguir asi de esta manera...

SET EXCLUSIVE OFF
SET MULTILOCKS ON
SET DELETE ON
SET REFRESH TO 5
SET REPROCESS TO AUTOMATIC
set exact off
set date to dmy
SET SCORE OFF
SET SAFE OFF
SET STAT OFF
SET SYSMENU TO
SET SYSMENU AUTOMATIC
CURSORSETPROP("BUFFERING",1,0)
CLOSE TABLES ALL
CLOSE DATABASES ALL
local lcNewDir
lcNewDir=sys(5)+Sys(2003)
SET DEFAULT TO (lcNewDir)
DO INDICES &&& ---------------------> AQUI LLAMA INDICES
..... Continuacion con el Resto del Prg. Principal....

----------------- PROG INDICES..
SET EXCLUSIVE ON && ----> Abriendo en modo exlusivo
USE && ----> Cierra las Tablas existentes abiertas
use trabajadores && ---- > Abre la tabla que se modifica y pueden borrar registros
PACK &&--------------> Empaga la tabla
index on nombre to idpersonal
use trabajadores index idpersonal
USE
USE trabajadores
INDEX on num TO idfolio
USE trabajadores INDEX idfolio
USE
USE usuarios
INDEX on nombre TO idusers
USE usuarios INDEX idusers
USE
use direccion
use direccion index on iddepto
USE
SET EXCLUSIVE OFF -> Habilitar modo compartido de Tablas.
-------------------------------------------------
Si hay alguna forma de hacerlo mejor... ahi les encargo me asesoren... sale...
muchas gracias amigo

SALUDOS.