Мельница данных   (23.11.2017)
Оператор выбора
case Выражение of
  Значение1: //Оператор1
  Значение2: //Оператор2
  ...
[else
  //Оператор ]
end

Заменяет каскад операторов if. Значение Выражения должно быть числового типа. Часть else выполняется в случае, если Выражение не равно ни одному из перечисленных вариантов. Эта часть не является обязательной.

       
сase LIndex of
  0: ZeroIndex;
  1,2,3: SmallIndex;
  4,5,6,7,8,9,10: BigIndex;
else
  raise 'Слишком большой или отрицательный индекс.';
end;