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