anchor.diff:  
     TVarObjectType = class(TInvokeableVariantType, IVarInstanceReference)
     protected
  -{$IF DEFINED(FPC) AND (FPC_VERSION < 3)}
  +{$IF DEFINED(FPC) AND (FPC_VERSION < 3.0)}
       procedure DispInvoke(Dest: PVarData; const Source: TVarData;
         CallDesc: PCallDesc; Params: Pointer); override;
   {$IFEND}
  
positive.code:   if Result then Variant(Dest) := HproseCommon.GetPropValue(Obj, Info);
  end;
  
  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;
  
negative.code: 
  { TVarObjectType }
  
  {$IF DEFINED(FPC) AND (FPC_VERSION < 3.0)}
  const
    VAR_PARAMNOTFOUND = HRESULT($80020004);
  
  