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