Source position: uPSRuntime.pas line 917
procedure PSSetUnicodeString(
Src: Pointer;
aType: TPSTypeRec;
var Ok: Boolean;
const Val: tbtunicodestring
);