anchor.diff:        begin
           Locs.SortByTag();
           BestBid := INIT_BID;
  +        BestIdx := 0; // For compiler
           for I := Locs.Count-1 downto 0 do
             if gAIFields.Eye.CanAddHousePlan(Locs.Items[I], ht_CoalMine, True, False, False) then
             begin
  
positive.code:   var
      Exhausted: Boolean;
    begin
      with fPlannedHouses[aHT].Plans[aIdx] do
      begin
        case aHT of
  
negative.code: destructor TKMCityPlanner.Destroy();
  var
    HT: TKMHouseType;
    I: Integer;
  begin
    for HT := HOUSE_MIN to HOUSE_MAX do
      for I := 0 to fPlannedHouses[HT].Count - 1 do
  