Source position: uPSRuntime.pas line 916
procedure PSSetWideString(
Src: Pointer;
aType: TPSTypeRec;
var Ok: Boolean;
const Val: tbtwidestring
);