Como puedo recoger los errores de Oracle

[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.