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 GetKeyState(VK_SHIFT) < 0 then
      Amt := Amt * 10;
  
    OrderCount := fOrderCount + Amt;
    Focus;
  
    if Assigned(OnChange) then
  
negative.code: 
    if Amt = 0 then Exit;
  
    if fImmidiateOrder then
      OrderCount := fOrderCount + Amt;
  
    Focus;
  
    if Assigned(OnChange) then
  