Falla el botón "Eliminar"...

Hola Expertos ! Tengo un formulario en donde ingreso los registros a una tabla. Quise programar un botón para eliminar los registros con la opción de cancelar el borrado y sucede que cuando cancelo la acción se eliminan los datos igual. El botón no anda y me gustaría saber en donde está el error.
El código del botón "Eliminar" es el siguiente:
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
cMessageTitle = 'Atención!'
cMessageText = 'Está por eliminar un registro. ¿Está seguro?'
nDialogType = 4 + 48 + 256
* 4 = Botones Sí y No.
* 48 = Signo de exclamación.
* 256 = El segundo botón es el predeterminado.
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
IF nAnswer = 6
sele descuentos
go top
dele for cod_plan=prestamos.cod_plan
sele prestamos
set filter to
delete
else
Se le prestamos
recall all
Se le descuentos
recall all
Endif
Thisform.refresh()
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
Desde ya gracias por todo.
Daniel Flores
[email protected]