anchor.diff:        if Prop.PropertyType.IsInstance then
           SetObjectPropsDefaults(Prop.GetValue(Instance).AsObject)
         else
  -      if Prop.IsWritable then
  +      if Prop.IsWritable and PropHasDefaultValue(Prop) then
           Prop.SetValue(Instance, GetPropDefaultValue(Prop));
     finally
       Ctx.Free;
  
positive.code:       Exit(TDefaultValueAttribute(Attr).Value);
  end;
  
  procedure TConfigManager.ReadObjectFromConfig(Instance : TObject; const Filter : TObjectPropertyFilter);  //FI:C103
  var
    Ctx : TRttiContext;
  
negative.code:       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);
  