anchor.diff:    if Result then Variant(Dest) := GetPropValue(Obj, Info);
   end;
   
  -function TVarObjectType.SetProperty(const V: TVarData;
  +function TVarObjectType.SetProperty({$IF DEFINED(FPC) AND (FPC_VERSION >= 3)}var{$ELSE}const{$IFEND} V: TVarData;
     const Name: string; const Value: TVarData): Boolean;
   var
     Obj: TObject;
  
positive.code: 
    TVarObjectType = class(TInvokeableVariantType, IVarInstanceReference)
    protected
  {$IFDEF FPC}
      procedure DispInvoke(Dest: PVarData; const Source: TVarData;
        CallDesc: PCallDesc; Params: Pointer); override;
  {$ENDIF}
      { IVarInstanceReference }
      function GetInstance(const V: TVarData): TObject;
    public
  
negative.code: end;
  
  { TVarObjectType }
  
  {$IF DEFINED(FPC) AND (FPC_VERSION < 3)}
  const
    VAR_PARAMNOTFOUND = HRESULT($80020004);
  
  