anchor.diff:  begin
     inherited;
   
  -  fCheckpoints := TList<TKMCheckpoint>.Create;
  +  fCheckpoints := TObjectList<TKMCheckpoint>.Create;
   end;
   
   
  
positive.code:   KM_Game, KM_CommonUtils, KM_Resource, KM_HouseTownhall, KM_HouseBarracks, KM_HouseMarket;
  
  const
    CHECKPOINTS_MAX_CNT = 300;
  
  
  { TKMCheckpoint }
  
negative.code:     fCounter: Cardinal;
  
      fCheckpointPos: Integer;
      fCheckpoints: TObjectList<TKMCheckpoint>;
  
      fOnUndoRedo: TEvent;
      fOnAddCheckpoint: TEvent;
  