anchor.diff:  end;
   
   
  -function TKMSettings.NeedToSave: Boolean;
  -begin
  -  Result := fNeedsSave;
  -end;
  -
  -
   procedure TKMSettings.ReloadSettings;
   begin
     LoadFromDefaultFile;
  
positive.code:     destructor Destroy; override;
  
      property Path: string read GetPath;
  
      procedure ReloadSettings;
      procedure SaveSettings(aForce: Boolean = False);
  
negative.code: 
      procedure Changed;
      function GetDefaultSettingsName: string; virtual; abstract;
  
      procedure LoadFromFile(const aPath: string); virtual; abstract;
      procedure SaveToFile(const aPath: string); virtual; abstract;
  