[rastafarey]

capturala dentro de un cuerpo try except

y dependiendo del tipo de exceion enviar el mensaje con la caja de dialogo que mejor te parezaca

Código Delphi [-]
try
  //codigo ...
except
  on e: exception do begin
    if E Is tipoexceptionfirebirddependiendodelcomponenente then
       shomessage('mensaje')
    else 
       showmessage(e.message);
  end;
end

Espero te sirva.