tEnum
Тип данных
Перечисление - имеет несколько возможных значений, задается индексом необходимого значения в списке возможных.
Задание перечисляемого типа:
var z: tEnum;
initialization
// Присвоение перечисляемого списка для отображения
z->items = "a1"+CLRF+"a2";
end;
// Присвоение номера
z = 1;
// тоже самое другим способом
z->value = 0;