cambiar los mensajes de error de interbase

[dungeon]

ya tengo el problema resuelto pero el inconveniente que tengo ahora es que en lugar de mostrarme el codigo de error y el mensaje de error solo me enseña el mensaje.
[code]
procedure TFrmvehiculodetalles.tratarexcepciones(sender: tobject; E : exception);
begin
if E.ClassNameis('eibinterbaseerror') then
showmessage(format('iberrorcode: %d - sqlerrorcode: %d',[EIBInterbaseError(e).IBErrorCode, EIBInterbaseError(e).SQLCode])+ #13 + 'mesaje: '+ e.Message)
else
ShowMessage(E.Message);
end;

Lo que no entiendo es porque no me enseña el numero error.