Source position: uPSRuntime.pas line 941
procedure VNSetCurrency(
const Src: TPSVariantIFC;
const Val: Currency
);