anchor.diff:  procedure TKMNumericEdit.ButtonClick(Sender: TObject; Shift: TShiftState);
   begin
     if Sender = fButtonDec then
  -    Value := Value - GetMultiplicator(Shift)
  +    SetValueNCheckRange(Int64(Value) - GetMultiplicator(Shift))
     else
     if Sender = fButtonInc then
  -    Value := Value + GetMultiplicator(Shift)
  +    SetValueNCheckRange(Int64(Value) + GetMultiplicator(Shift))
     else
       Exit;
   
  
positive.code: begin
    inherited;
  
    if WheelDelta > 0 then Value := Value + 1 + 9*Byte(GetKeyState(VK_SHIFT) < 0);
    if WheelDelta < 0 then Value := Value - 1 - 9*Byte(GetKeyState(VK_SHIFT) < 0);
  
    Focus;
  
  
negative.code:   inherited KeyDown(Key, Shift);
  
    case Key of
      VK_UP:      SetValueNCheckRange(Int64(Value) + 1 + 9*Byte(ssShift in Shift));
      VK_DOWN:    SetValueNCheckRange(Int64(Value) - 1 - 9*Byte(ssShift in Shift));
    end;
  end;
  
  