Excepciones en firebird

[GustavoCruz]

Hola amigos del foro, tengo un db en firebird 2.1 a cuya base le he creado algunas excepciones.

mi inconveniente surge al momento de mostrar el mensaje, pues no sólo me muestra el mensaje del error sino que tambien en dónde ocurrio; lo que hago es esto.

Código Delphi [-]
with SQLQuery do
    begin
      SQL.Clear;
      SQL.Add(Cadena);
      try
        ExecSQL;
      Except
        on E: Exception do
           ShowMessage(E.ClassName+#10+#13+E.Message);
      end;
    end;

Lo que me gustaría mostrar es el texto de la excepción y nada más, por ejemplo: "No se ha suministrado información del paciente. Por favor verifique para continuar".

De antemano mil gracias por vuestro tiempo

GustavoCruz