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

Или

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

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

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