boton eliminar

Hola foro.
VFP 6.0
A ver si alguien me pude ayudar con esto.

Tengo un boton de eliminar en un formulario.
He tratado con estos dos codigos y no me funciona ninguno.

****************
* CODIGO #1 *
****************
If MessageBox('¿Seguro que deseas eliminar este
registro?',4+32+256,'Eliminar Registro')=6
Select proveedores
delete next 1
Thisform.refresh
Else
Loop
EndIf
****************
* CODIGO #2 *
****************
select proveedores
set order to 1
Titulo = 'Eliminar Ficha'
Texto = '¿Seguro que desea eliminar esta Ficha?'
Tipo = 4 + 32 + 256
resp = messagebox(Texto, Tipo, Titulo)

do case
case resp = 6
delete next 1
thisform.refresh
case resp = 7
endcase

Con el codigo#1 no elimina el registro y con el codigo#2 me marca el
siguiente error: Function argument value, type or count is invalid.

Alguien sabe a que se debe?