Source position: uPSRuntime.pas line 976
procedure VSetUnicodeString(
const Src: PIFVariant;
const Val: tbtunicodestring
);