整数范围的Delphi case语句

我有一个函数正在传递一个整数值,表示一个步长值.
有五个单独的条件我想测试：
值= 0
值= 1
值= -1
值> 1
值<-1 目前这是作为一组if语句来实现的,我想改变一个case语句.我对具体的价值实例没有任何问题,甚至是有限的范围(比如说1..10),但是我如何写一个代表Value> 1或Value< -1的case？

解决方法

var
  MyValue: integer;

...

case MyValue of
  Low(Integer)..-2:
    beep;
  -1:
    beep;
  0:
    beep;
  +1:
    beep;
  2..High(Integer):
    beep;
end;