Source position: uPSRuntime.pas line 975
procedure VSetWideString(
const Src: PIFVariant;
const Val: tbtwidestring
);