Case MyIntegerValue of 
  0..15: DoSomthingCool(MyIntegerValue);
  16, 18, 24: DoNextCoolThing(MyIntegerValue);
  26..89, 90, 95, 101..170: VeryNiceAndCool(MyIntegerValue);
End;

Type
  TDigit = (zero, one, two, three, four, five, six, seven, eight, nine);
  TDigits = Set Of TDigit;
Var Digits: TDigits;
Begin
  Digits := [zero..two, four..six];
  Include(Digits, three);
  Digits := Digits + [seven..nine];
  // Ну и  в таком духе — операции со множествами.
End;

Case MyIntegerValue of 
  0..15: DoSomthingCool(MyIntegerValue);
  16, 18, 24: DoNextCoolThing(MyIntegerValue);
  26..89, 90, 95, 101..170: VeryNiceAndCool(MyIntegerValue);
End;

Type
  TDigit = (zero, one, two, three, four, five, six, seven, eight, nine);
  TDigits = Set Of TDigit;
Var Digits: TDigits;
Begin
  Digits := [zero..two, four..six];
  Include(Digits, three);
  Digits := Digits + [seven..nine];
  // Ну и  в таком духе — операции со множествами.
End;

Case MyIntegerValue of >   0..15: DoSomthingCool(MyIntegerValue);
>   16, 18, 24: DoNextCoolThing(MyIntegerValue);
>   26..89, 90, 95, 101..170:
> VeryNiceAndCool(MyIntegerValue);
> End;

Type>   TDigit = (zero, one, two, three, four, five, six, seven,
> eight, nine);
>   TDigits = Set Of TDigit;
> Var Digits: TDigits;
> Begin
>   Digits := [zero..two, four..six];
>   Include(Digits, three);
>   Digits := Digits + [seven..nine];
>   // Ну и  в таком духе — операции со множествами.
> End;

Case MyIntegerValue of >   0..15: DoSomthingCool(MyIntegerValue);
>   16, 18, 24: DoNextCoolThing(MyIntegerValue);
>   26..89, 90, 95, 101..170:
> VeryNiceAndCool(MyIntegerValue);
В сях case действует немного по другому - первый же встреченный case с совпадением приводит к тому, что все другие case как бы пропускаются (почему так - можно понять взглянув на код, который генерится для switch-case инструкции) - именно поэтому каждый case нужно заканчивать break-ом. Так вот, чтоб прикрутить к одной ветке исполнения несколько разных case-ов нужно просто все их указать:
switch(i) {
case 0: case 1: case 2: case 3:
do_my_stuff();
break;
case 10: case 11: case 12:
do_another_stuff();
break;
default:
do_default_stuff();
}

---
Но такой код встречается нечасто, обычно case-ы идут по предопределенным константам (кодам сообщений, ioctl-ов, чего-то еще). Если нужно например сделать что-то только для букв есть библиотечная функция:
if (isalpha(char))
do_something(char);

Другие типы символов можно глянуть в <ctype.h>
И кстати, case-ы с не очень большим разбросом реализуются в коде при помощи таблицы указателей на функции (в общем берем нужный case используем как индекс в некой таблице и получаем искомый результат). Кстати использование всевозможных таблиц с данными - очень часто используемый прием.
Если действительно жизнь не мила без множеств (set-ов) - можешь глянуть на C++ овский STL или нестандартные библиотеки типа MFC.
> End;

Type>   TDigit = (zero, one, two, three, four, five, six, seven,
> eight, nine);
>   TDigits = Set Of TDigit;
> Var Digits: TDigits;
> Begin
>   Digits := [zero..two, four..six];
>   Include(Digits, three);
>   Digits := Digits + [seven..nine];
>   // Ну и  в таком духе — операции со множествами.
> End;