Source position: uPSRuntime.pas line 913
procedure PSSetString(
Src: Pointer;
aType: TPSTypeRec;
var Ok: Boolean;
const Val: string
);