Evitar un Key Violation

[[sitrico]]

Buenas, Estoy retocando una aplicación y quisiera verificar ANTES DE QUE OCURRA la validez de una clave, me explico:

Visitando los foros encontré que una de las maneras de manejar la excepción del Key Violation era:

Try
    db.Post;
Except
   Mensaje....
End;

Ahora bien, manejarlas de esa manera me obligaría a crear un bloque Try..Excep en cada post de la aplicación. Preferiría usar los eventos de la base de datos OnPostError o mejor OnBeforePost para validar la clave antes de que se genere la excepción. Tengo la dificultad adicional de que parte de la base de datos está filtrada y hay claves ocultas.

¿ Existe alguna función como Function IsValidKey(Registro o clave):Boolean (o algo así) que permita llamar a la BDE para que se verifique la validez de la clave ?

El código debe ser algo así:

Evento On BeforePost

If Not(IsValidKey(Registro acual)) Then
   Begin
   // Mensaje de clave duplicada
   Abort; // pero debe seguir el insert o edit 
   End;