anchor.diff:        function  FilterConfigProp(Instance : TObject; Prop : TRttiProperty) : Boolean;
         function  GetConfigFileName : TFileName;
         function  GetPropDefaultValue(Prop : TRttiProperty) : TValue;
  +      function  PropHasDefaultValue(Prop : TRttiProperty) : Boolean;
         procedure ReadObjectFromConfig(Instance : TObject; const Filter : TObjectPropertyFilter);
         procedure SetObjectPropsDefaults(Instance : TObject);
         procedure WriteObjectToConfig(Instance : TObject; const Filter : TObjectPropertyFilter);
  
positive.code:       Exit(TDefaultValueAttribute(Attr).Value);
  end;
  
  procedure TConfigManager.ReadObjectFromConfig(Instance : TObject; const Filter : TObjectPropertyFilter);  //FI:C103
  var
    Ctx : TRttiContext;
  
negative.code:       if Prop.PropertyType.IsInstance then
          SetObjectPropsDefaults(Prop.GetValue(Instance).AsObject)
        else
        if Prop.IsWritable and PropHasDefaultValue(Prop) then
          Prop.SetValue(Instance, GetPropDefaultValue(Prop));
    finally
      Ctx.Free;
  