anchor.diff:      function GetDeliverStage: TKMDeliverStage;
       procedure SetToHouse(aToHouse: TKMHouse);
       procedure SetFromHouse(aFromHouse: TKMHouse);
  +    procedure SetToUnit(aToUnit: TKMUnit);
       property FromHouse: TKMHouse read fFrom write SetFromHouse;
       property ToHouse: TKMHouse read fToHouse write SetToHouse;
  +    property ToUnit: TKMUnit read fToUnit write SetToUnit;
     public
       constructor Create(aSerf: TKMUnitSerf; aFrom: TKMHouse; aToHouse: TKMHouse; Res: TKMWareType; aID: Integer); overload;
       constructor Create(aSerf: TKMUnitSerf; aFrom: TKMHouse; aToUnit: TKMUnit; Res: TKMWareType; aID: Integer); overload;
  
positive.code:   // New House
    if (NewToHouse <> nil) and (NewToUnit = nil) then
    begin
      fToHouse := NewToHouse.GetHousePointer;
      if fToHouse.IsComplete then
        fDeliverKind := dkToHouse
      else
  
negative.code:   gHands.CleanUpUnitPointer(fToUnit);
    if NewToHouse <> nil then
    begin
      ToHouse := NewToHouse.GetHousePointer; //Use Setter here to set up fPointBelowToHouse
      if fToHouse.IsComplete then
        fDeliverKind := dkToHouse
      else
  