1type
2  TComparisonType = (ctEqual, ctNotEqual, ctGreater, ctGreaterOrEqual, ctLess, 
3    ctLessOrEqual, ctLike, ctNotLike, ctRegexpLike, ctNotRegexpLike, ctIsParent, 
4    ctIsChild);

Или

01type
02  TComparisonType = TOleEnum;
03const
04  ctEqual = $00000000;
05  ctNotEqual = $00000001;
06  ctGreater = $00000002;
07  ctGreaterOrEqual = $00000003;
08  ctLess = $00000004;
09  ctLessOrEqual = $00000005;
10  ctLike = $00000006;
11  ctNotLike = $00000007;
12  ctRegexpLike = $00000008;
13  ctNotRegexpLike = $00000009;
14  ctIsParent = $0000000A;
15  ctIsChild = $0000000B;

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

Имя	Значение	Назначение
ctEqual	0	Равно
ctNotEqual	1	Не равно
ctGreater	2	Больше
ctGreaterOrEqual	3	Больше или равно
ctLess	4	Меньше
ctLessOrEqual	5	Меньше или равно
ctLike	6	Подобно
ctNotLike	7	Не подобно
ctRegexpLike	8	Удовлетворяет регулярному выражению
ctNotRegexpLike	9	Не удовлетворяет регулярному выражению
ctIsParent	10	Является родителем
ctIsChild	11	Является потомком