anchor.diff:  
       property AutosaveFrequency: Integer read fAutosaveFrequency write SetAutosaveFrequency;
       property AutosaveCount: Integer read fAutosaveCount write SetAutosaveCount;
  -    property ReplayAutopause: Boolean read fReplayAutopause write SetReplayAutopause;
  -    property ReplayShowBeacons: Boolean read fReplayShowBeacons write SetReplayShowBeacons;
       property SpecShowBeacons: Boolean read fSpecShowBeacons write SetSpecShowBeacons;
       property ShowGameTime: Boolean read fShowGameTime write SetShowGameTime;
   
  
positive.code: 
      fWareDistribution.LoadFromStr(F.ReadString ('Game','WareDistribution',''));
  
      fReplayAutosave           := F.ReadBool     ('Replay', 'ReplayAutosave',          True); //Should be ON by default
      SetReplayAutosaveFrequency(F.ReadInteger    ('Replay', 'ReplayAutosaveFrequency', REPLAY_AUTOSAVE_FREQUENCY_DEFAULT));
  
      fSoundFXVolume  := F.ReadFloat  ('SFX',  'SFXVolume',      0.5);
      fMusicVolume    := F.ReadFloat  ('SFX',  'MusicVolume',    0.5);
  
negative.code: end;
  
  
  procedure TKMGameSettings.SetSpecShowBeacons(aValue: Boolean);
  begin
    fSpecShowBeacons := aValue;
    Changed;
  end;
  
  
  procedure TKMGameSettings.SetShowGameTime(aValue: Boolean);
  begin
    fShowGameTime := aValue;
    Changed;
  end;
  
  
  procedure TKMGameSettings.SetPlayersColorMode(aValue: TKMPlayerColorMode);
  begin
    fPlayersColorMode := aValue;
    Changed;
  end;
  
  
  procedure TKMGameSettings.SetPlayerColorSelf(aValue: Cardinal);
  begin
    fPlayerColorSelf := aValue;
    Changed;
  end;
  
  
  procedure TKMGameSettings.SetPlayerColorAlly(aValue: Cardinal);
  begin
    fPlayerColorAlly := aValue;
    Changed;
  end;
  
  
  procedure TKMGameSettings.SetPlayerColorEnemy(aValue: Cardinal);
  begin
    fPlayerColorEnemy := aValue;
    Changed;
  end;
  
  
  procedure TKMGameSettings.SetDayGamesCount(aValue: Integer);
  begin
    fDayGamesCount := aValue;
    Changed;
  end;
  
  
  procedure TKMGameSettings.SetLastDayGamePlayed(aValue: TDateTime);
  begin
    fLastDayGamePlayed := aValue;
    Changed;
  end;
  
  
  procedure TKMGameSettings.SetReplayAutopause(aValue: Boolean);
  begin
    fReplayAutopause := aValue;
  