Como puedo recoger los errores de Oracle

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