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;