Коллеги, подскажите, как правильно добавить string в array of TVarRec?

function Test: string;
var
  xPars: array of TVarRec;
  xS: string;
begin
  xS := 'abc';
  SetLength(xPars, 1);
  xPars[0].VType := vtUnicodeString;
  xPars[0].VUnicodeString := @xS;
  // Ожидаю одинакового результата в следующих строках, однако:
  Result := Format('Res:%s', ['abc']);    // Result= 'Res:abc'
  Result := Format('Res:%s', [xS]);        // Result= 'Res:abc'
  Result := Format('Res:%s', xPars);      // Result= 'Res:'
end;