anchor.diff:  
   
   { TKMWareOrderRow }
  -constructor TKMWareOrderRow.Create(aParent: TKMPanel; aLeft, aTop, aWidth: Integer; aOrderCntMax: Integer = MAX_WARES_IN_HOUSE; aOrderCntMin: Integer = 0);
  +constructor TKMWareOrderRow.Create(aParent: TKMPanel; aLeft, aTop, aWidth: Integer; aOrderCntMax: Integer = MAX_WARES_IN_HOUSE;
  +                                   aOrderCntMin: Integer = 0; aImmidiateOrder: Boolean = False);
   begin
     inherited Create(aParent, aLeft, aTop, aWidth, WARE_ROW_HEIGHT);
   
     fWaresRow := TKMWaresRow.Create(aParent, aLeft + 68, aTop, aWidth - 68);
  +
  +  fImmidiateOrder := aImmidiateOrder;
   
     OrderCntMin := aOrderCntMin;
     OrderCntMax := aOrderCntMax;
  
positive.code:     OrderCntMin: Integer;
      OrderCntMax: Integer;
      OnChange: TObjectIntegerEvent;
      constructor Create(aParent: TKMPanel; aLeft, aTop, aWidth: Integer; aOrderCntMax: Integer = MAX_WARES_IN_HOUSE; aOrderCntMin: Integer = 0);
      property WareRow: TKMWaresRow read fWaresRow;
      property OrderCount: Integer read fOrderCount write SetOrderCount;
      property OrderRemHint: UnicodeString write SetOrderRemHint;
  
negative.code:     fOrderLab: TKMLabel;
      fOrderRem: TKMButton;
      fOrderCount: Integer;
      fImmidiateOrder: Boolean; //Order count should be changed immidiately in control. Should be False usually
      procedure ButtonClick(Sender: TObject; Shift: TShiftState);
      procedure ClickHold(Sender: TObject; Button: TMouseButton; var aHandled: Boolean);
      procedure SetOrderRemHint(aValue: UnicodeString);
  