Ibo 4.6, Firebird 2.0 Beta 2, winxp2, delphi 7

Hello.

I have and exception in database without message. And the store
priocedure call exception "Msg"'any message';

But in delphi only show inte message Msg. The name of exception.

I solve it.

In the procedure

procedure TIB_SessionBase.HandleException( Sender: TObject );

in then ib_session.pas
change the index the 4 to 5. That is the position that contains the
message really.

...
if ( SQLCODE = -836 ) and ( error_messages.Count > 2 ) then
tmpText := error_messages[ 5 ] //the original index is 4
else
tmpText := error_messages.Text;