[roman]

Si no mal recuerdo tienes que lanzar una excepción en el evento OnBeforeDelete. Bien sea un simple abort después de tu mensaje o bien cambiar éste por la excepción:

Código Delphi [-]
raise Exception.Create(mensaje);

// Saludos