1type
2  TSimpleType = (dtString, dtInteger, dtInt64, dtFloat, dtDate, dtTime, 
3    dtDateTime, dtBoolean, dtEnumeration, dtReference, dtBlob);

Или

01type
02  TSimpleType = TOleEnum;
03const
04  dtString = $00000000;
05  dtInteger = $00000001;
06  dtInt64 = $00000002;
07  dtFloat = $00000003;
08  dtDate = $00000004;
09  dtTime = $00000005;
10  dtDateTime = $00000006;
11  dtBoolean = $00000007;
12  dtEnumeration = $00000008;
13  dtReference = $00000009;
14  dtBlob = $0000000A;

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

Имя	Значение	Назначение
dtString	0
dtInteger	1
dtInt64	2
dtFloat	3
dtDate	4
dtTime	5
dtDateTime	6
dtBoolean	7
dtEnumeration	8
dtReference	9
dtBlob	10