Source position: uPSRuntime.pas line 970
procedure VSetCurrency(
const Src: PIFVariant;
const Val: Currency
);