Capturar excepciones desde pl/sql

[mcalmanovici]

Hola gente:
tengo un problema cuando quiero capturar excepciones creadas por mí en un trigger de una tabla de la base de datos.
Desde delphi yo hago lo siguiente pero no me funciona:

procedure TPUDMCambiarParamOperacion.actualizar;
var
num : Integer;
begin
try
begin
if CDSOperaciones.State in dsEditModes then
CDSOperaciones.Post;
if CDSOperaciones.ChangeCount > 0 then
num := CDSOperaciones.ApplyUpdates(0);
end
except
Application.MessageBox('mensaje excepción', 'Mensaje', MB_YESNOCANCEL + MB_ICONINFORMATION);
end;
end;

Yo quiero poder capturar el mensaje de la excepción que me da el trigger y mostrarlo por pantalla. El trigger es un before_update.

Desde ya cualquier respuesta muchas gracias.

Mariano.