Source position: uPSRuntime.pas line 677
protected procedure TPSExec.ExceptionProc(
proc: Cardinal;
Position: Cardinal;
Ex: TPSError;
const s: TbtString;
NewObject: TObject
); virtual;