Source position: uPSRuntime.pas line 593
type TPSOnException = procedure(
Sender: TPSExec;
ExError: TPSError;
const ExParam: TbtString;
ExObject: TObject;
ProcNo: Cardinal;
Position: Cardinal
);