Source position: uPSRuntime.pas line 914
procedure PSSetAnsiString(
Src: Pointer;
aType: TPSTypeRec;
var Ok: Boolean;
const Val: TbtString
);