anchor.diff:            Prop.SetValue(Instance, FConfigFile.Config.ReadInteger(Instance.QualifiedClassName, Prop.Name, 0))
           else
             case Prop.PropertyType.TypeKind of
  -            //TODO: not sure if this will work for AnsiString
               tkString, tkLString, tkWString, tkUString:
                 //TODO: third patameter must be a routine for getting the default value (parameterized?)
                 Prop.SetValue(Instance, FConfigFile.Config.ReadString(Instance.QualifiedClassName, Prop.Name, String.Empty));
  
positive.code:       FConfigFile : TConfigFile;
      private
        type
          TFilterPredicate = reference to function (const Instance : TObject; const Prop : TRttiProperty) : Boolean;
      private
        function  FilterConfig(const Instance : TObject; const Prop : TRttiProperty) : Boolean;
        procedure GenerateFullConfig;
        procedure ReadObjectFromConfig(const Instance : TObject; Filter : TFilterPredicate);
        procedure WriteObjectToConfig(const Instance : TObject; Filter : TFilterPredicate);
      protected
        procedure FillDataFromFile;
        procedure FillFileFromData;
  
negative.code:   FConfigData.FixInsightOptions.Validate := Validate;
  
    FConfigFile := TConfigFile.Create(ConfigFileName, GenerateConfig);
  
    if GenerateConfig then
      GenerateDefaultConfig;
  end;
  
  destructor TConfigManager.Destroy;
  