anchor.diff:  {$if declared(vtUnicodeString)}
         vtUnicodeString:
             Add(TSuperObject.Create(SOString(string(TVarRec(Args[j]).VUnicodeString))));
  -{$ENDIF}
  +{$ifend}
       else
         assert(false);
       end;
  
positive.code:   {$ELSE}
      varUString:  Result := TSuperObject.Create(SOString(string(VUString)));
    {$ENDIF}
  {$ENDIF}
    else
      raise Exception.CreateFmt('Unsuported variant data type: %d', [VType]);
    end;
  
negative.code:   SOIChar = Word;
    PSOChar = PChar;
    SOString = string;
  {$ifend}
  
  const
    SUPER_ARRAY_LIST_DEFAULT_SIZE = 32;
  