anchor.diff:      fToUnit := NewToUnit.GetUnitPointer;
       fDeliverKind := dk_ToUnit;
       Result := True;
  -    if fPhase > 5 then
  -      fPhase := 5;
  +    if fPhase > 4 then
  +      fPhase := 4;
     end
     else
     // No alternative
  
positive.code:     Result := False;
      Exit;
    end else
    if InRange(fPhase, 3, 4) then
    begin
      Result := True;
      Exit;
  
negative.code:     else
        fDeliverKind := dk_ToConstruction;
      Result := True;
      if fPhase > 4 then
        fPhase := 4;
    end
    else
    // New Unit
  