Como puedo recoger los errores de Oracle

[albertillo]

Hola gente, tengo un problema.
No puedo recoger bien los errores que proporciona oracle xq delphi lo interpreta siempre con el mismo codigo de error.

yo dispongo de una funcion que dependiendo del codigo de error que me proporcione e.errors[e.errorcount-1].errorcode muestro un mensaje u otro pero el problema es que siempre tengo el mismo codigo de error aunq sea el error de oracle distinto.
Ahi os muestro la funcion q utilizo para mostrar los errores, que es llamada en el try de abajo

[albertillo]

Desde aki llamo al procedimiento que me muestra los mensajes

Código Delphi [-]

try
                //Indicamos el codigo q puede dar error

                t.post;

                except

                //Indicamos los posibles casos de errores

                on e:edbengineerror  do begin
                        t.cancel;
                        mostrarmensajes(inttostr(e.errors[e.errorcount-1].errorcode));
                        //e.errors[] es la pila dnd se almacenan los errores
                        //e.errorcount nos dice el numero de errores almacenados en la pila
                        //e.errors[e.errorcount-1].errorcode nos dice el codigo del último error
                end;

                on e:edatabaseerror  do begin
                        t.cancel;
                        showmessage(e.message);
                        end;
                end;

[albertillo]

Esta es la unidad que contiene el procedimiento que muestra los mensajes.
El problema es q siempre recojo el mismo codigo de error.

Código Delphi [-]

unit UErrores;

interface

uses
Dialogs;

//declaramos el prototipo de la funcion

procedure mostrarmensajes(cod: string);

implementation

procedure mostrarmensajes(cod: string);
        begin
        if cod='9729' then
                Showmessage('Violación de clave')
        else
                if cod='9733' then
                Showmessage('No puede asociar un registro que no existe')

                else
                        if cod='9734' then
                        Showmessage('No puede borrar el registro. Tiene registros asociados')

                        else
                                if cod='10241' then
                                Showmessage('No se puede abrir la tabla, está abierta por otro usuario')

                                else

                                Showmessage('Error desconocido');
                                






        end;



end.