anchor.diff:    // New House
     if (NewToHouse <> nil) and (NewToUnit = nil) then
     begin
  -    fToHouse := NewToHouse.GetHousePointer;
  +    ToHouse := NewToHouse.GetHousePointer; //Use Setter here to set up fPointBelowToHouse
       if fToHouse.IsComplete then
         fDeliverKind := dkToHouse
       else
  
positive.code: begin
    fFrom := aFromHouse;
    fPointBelowFromHouse := aFromHouse.PointBelowEntrance; //save that point separately, in case fFrom will be destroyed
  end;
  
  
  
negative.code:   // New Unit
    if (NewToHouse = nil) and (NewToUnit <> nil) then
    begin
      ToUnit := NewToUnit.GetUnitPointer; //Use Setter here to clean up fPointBelowToHouse
      fDeliverKind := dkToUnit;
      Result := True;
      if fPhase > 4 then
  