anchor.diff:        end;
       end;
   
  -    inc(i);
  -    H:=TKMHouseInn(FindHouse(ht_Inn,i));
  +    inc(I);
  +    H := TKMHouseInn(FindHouse(ht_Inn, I));
     until(H = nil);
   end;
   
  
positive.code: //Stats/Deliveries and other collection in their Destroy/Abandon/Demolish methods
  destructor TKMPlayer.Destroy;
  begin
    Inherited;
    FreeThenNil(fArmyEval);
    FreeThenNil(fRoadsList);
    FreeThenNil(fHouses);
  
    //Should be freed after Houses and Units, as they write to it on Destroy
    FreeThenNil(fStats);
    FreeThenNil(fGoals);
    FreeThenNil(fFogOfWar);
  
negative.code: 
  procedure TKMPlayer.SyncLoad;
  begin
    inherited;
    fHouses.SyncLoad;
    fDeliverList.SyncLoad;
    fBuildList.SyncLoad;
  