Firebird Exceptions

[MSpider]

I have stored procedure in Firebird server and try to execute it from my application, like:

Code: Select all

try
 ZStoredProc.ExecProc; // or Open;
except
on E: Exception
 Showmessage(E.Message)
end;

and when my StoredProc in Firebird raise an any my personal Exception with some text - i don't get it in ZStoredProc...
i have a message like:

Code: Select all

 cat: Other, proto: firebird-2.0, msg:  exception @1 @1 @1 @1, errcode: -836, error: exception @1

How i can get text from my personal exception in Firebird.

I'm using ZeosDBO 6.6.2 in Lazarus.

Thank's for the reply!