Cambiar mensaje de error en Firebird

[Jose Roman]

Hola a todos,

Tengo Firebird 2.1, ZeosLib y Delphi 2007.

Mi pregunta es la siguiente, hay alguna manera de que al momento de generarse un error (bien sea por PRIMARY KEY, FOREIGN KEY, etc) se pueda capturar el nombre del CONSTRAINT de ese error y dar un mensaje solo con el nombre.

Me ayudaria con un ejemplo, gracias.

[[duilioisola]]

Supongo que podrías poner todo en un bloque try..except y parsear el mensaje de error:

Código Delphi [-]
try
   {ejecutar el query}
except
   on e:exception do
   begin
      FK := ExtraerFK(e.Message);
   end
end

[Jose Roman]

Gracias por responder.

Pero como hago eso?