Intercepcion de errores Firebird - Zeos

[pablonill]

Hola, les comento que estoy tratando de generar una rutina para capturar y personalizar los mensajes de error generados por firebird, les muestro lo que voy realizando y los resultados y problemas que tuve! (Uso los controles zeos)
Agrego un control ApplicationEvents y en OnException tengo lo siguiente.

Código Delphi [-]
if (E is EZDatabaseError) then
   if (EZDatabaseError(E).ErrorCode=-803) then
      MessageDlg('Violación de clave única',mtError,[mbOk],0);

Esta parte funciona a la perfección, el problema es que al tratar de interceptar el error que genera cuando no se ingresa un valor a un campo requerido (NOT NULL), la excepción generada es EDatabaseError y no un EZDatabaseError, por lo tanto tendría que generar otra rutina para tal fin, alguna idea!? o sugerencia!, desde ya muchas gracias!

Nota: Estaría bueno crear una rutina para interceptar estos tipos de errores así podemos crear mensajes personalizados. De todas formas voy a seguir investigando por mi parte y notificare cualquier novedad, Gracias nuevamente!