anchor.diff:      RaiseDispError;
     end;
   end;
  -{$ENDIF}
  +{$IFEND}
   
   function TVarObjectType.GetInstance(const V: TVarData): TObject;
   begin
  
positive.code:       SetWideStrProp(Instance, PropInfo, VarToWideStr(Value));
  {$IFDEF Supports_Unicode}
      tkUString:
        SetUnicodeStrProp(Instance, PropInfo, VarToStr(Value)); //SB: ??
  {$ENDIF}
  {$ELSE}
      tkUString:
  
negative.code:  *                                                        *
   * hprose common unit for delphi.                         *
   *                                                        *
   * LastModified: Jun 7, 2016                              *
   * Author: Ma Bingyao <andot@hprose.com>                  *
   *                                                        *
  \**********************************************************/
  