1type
2  TSortDirection = (sdNone, sdAscending, sdDescending);

Или

1type
2  TSortDirection = TOleEnum;
3const
4  sdNone = $00000000;
5  sdAscending = $00000001;
6  sdDescending = $00000002;

Элементы перечисления:

Имя	Значение	Назначение
sdNone	0	Нет
sdAscending	1	По возрастанию
sdDescending	2	По убыванию