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

Или

01type
02  TQueryPart = TOleEnum;
03const
04  qpWhat = $00000000;
05  qpWhere = $00000001;
06  qpOrder = $00000002;
07  qpGroup = $00000003;
08  qpHaving = $00000004;
09  qpInnerJoin = $00000005;
10  qpOuterJoin = $00000006;

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

Имя	Значение	Назначение
qpWhat	0
qpWhere	1
qpOrder	2
qpGroup	3
qpHaving	4
qpInnerJoin	5
qpOuterJoin	6