anchor.diff:  
   
   procedure TKMHousesCollection.SyncLoad;
  -var I: Integer;
  +var
  +  I: Integer;
   begin
     for I := 0 to Count - 1 do
       Houses[I].SyncLoad;
  
positive.code: 
  
  function TKMHousesCollection.FindHouse(aType: TKMHouseType; X, Y: word; const aIndex: Byte = 1; aOnlyCompleted: Boolean = True): TKMHouse;
  var HT: THouseTypeSet;
  begin
    if aType = htAny then HT := [Low(TKMHouseType)..High(TKMHouseType)]
    else                   HT := [aType];
    Result := FindHouse(HT, X, Y, aIndex, aOnlyCompleted);
  end;
  
  
negative.code: //Find house by index (1st, 2nd)
  function TKMHousesCollection.FindHouse(const aTypes: THouseTypeSet; X, Y: word; const aIndex: Byte = 1; aOnlyCompleted: Boolean = True): TKMHouse;
  var
    I, ID: Integer;
    UsePosition: Boolean;
    BestMatch,Dist: Single;
  begin
  