FoxPro/Visual FoxPro - como capturar el error

Tengo BD relacionadas, ya he configurado que cuando se intente eliminar de una tabla relacionada no lo permita, ahora como capturo el error cuando hago el DELETE?

Este código controla en VFox 6.0 si se puede borrar un registro de una tabla, si se puede borrar desmarca el registro y llama otro formulario donde puedes confirmar la baja.

***********************
nError=0
on error nError=error()
select tutabla
delete
on error
if nError=1539
messagebox("Error: No se puede borrar.","Aviso")
else
recall
do form formbaja
endif
****************************************

En Vfoxpro 8.o tienes otra forma de hacerlo con el try catch, ejemplo:

*************************************
LOCAL lo as Exception,lcmsg as Character
TRY
delete
lcmsg="Exito"
CATCH TO lo
lcmsg=transform(lo.ErrorNo)+".Error al borrar. "+lo.Message
FINALLY
MESSAGEBOX(lcmsg,64,"Aviso")
ENDTRY

*************************************

Suerte.
Ángel.