Source position: uPSRuntime.pas line 911
procedure PSSetCurrency(
Src: Pointer;
aType: TPSTypeRec;
var Ok: Boolean;
const Val: Currency
);