Source position: uPSRuntime.pas line 969
procedure VSetReal(
const Src: PIFVariant;
const Val: Extended
);