anchor.diff:      function HitTest(X, Y: Integer): Boolean;
       property HouseType: THouseType read fHouseType;
       property BuildingRepair:boolean read fBuildingRepair write fBuildingRepair;
  -    property WareDelivery:boolean read fWareDelivery write SetWareDelivery;
  +    property WareDelivery:boolean read fWareDelivery write fWareDelivery;
       property GetHasOwner:boolean read fHasOwner write fHasOwner;
       property Owner:TPlayerIndex read fOwner;
       function GetHealth:word;
  
positive.code: 
      procedure Activate(aWasBuilt: Boolean); virtual;
      procedure CloseHouse(IsEditor: Boolean = False); virtual;
      procedure SetWareDelivery(aVal: Boolean);
      procedure EnableRepair;
      procedure DisableRepair;
  
  
negative.code: end;
  
  
  function TKMHousesCollection.GetTotalPointers: Cardinal;
  var I: Integer;
  begin
    Result := 0;
  