function myClause( Version:TPINT32; Call:P_TPCALL; First:P_TPARGUMENT; Exc:P_TPEXCEPTION ) : TPINT; stdcall;
info@trinc-prolog.com