1type
2  TQueryPart = (qpWhat, qpWhere, qpOrder, qpGroup, qpHaving);

Или

1type
2  TQueryPart = TOleEnum;
3const
4  qpWhat = $00000000;
5  qpWhere = $00000001;
6  qpOrder = $00000002;
7  qpGroup = $00000003;
8  qpHaving = $00000004;

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

Имя	Значение	Назначение
qpWhat	0	Кляуза выбора
qpWhere	1	Кляуза отбора
qpOrder	2	Кляуза сортировки
qpGroup	3	Группирующая кляуза
qpHaving	4	Кляуза отбора групп