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: 
    if Amt = 0 then Exit;
  
    OrderCount := fOrderCount + Amt;
  
    if (Amt <> 0) and Assigned(OnChange) then
      OnChange(Self, Amt);
  end;
  
  
negative.code:     OrderCntMin: Integer;
      OrderCntMax: Integer;
      OnChange: TObjectIntegerEvent;
      constructor Create(aParent: TKMPanel; aLeft, aTop, aWidth: Integer; aOrderCntMax: Integer = MAX_WARES_IN_HOUSE;
                         aOrderCntMin: Integer = 0; aImmidiateOrder: Boolean = False);
      property WareRow: TKMWaresRow read fWaresRow;
      property OrderCount: Integer read fOrderCount write SetOrderCount;
      property OrderRemHint: UnicodeString write SetOrderRemHint;
  