1type
2  TBlobSubtype = (btBinaryData, btText, btImage, btSourceCode, btXML, 
3    btNamedFile, btVisualBasicScript, btXHTML, btJavaScript, btHTML);

Или

01type
02  TBlobSubtype = TOleEnum;
03const
04  btBinaryData = $00000000;
05  btText = $00000001;
06  btImage = $00000002;
07  btSourceCode = $00000003;
08  btXML = $00000004;
09  btNamedFile = $00000005;
10  btVisualBasicScript = $00000006;
11  btXHTML = $00000007;
12  btJavaScript = $00000008;
13  btHTML = $00000009;

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

Имя	Значение	Назначение
btBinaryData	0	Двоичные данные
btText	1	Текст
btImage	2	Изображение
btSourceCode	3	Исходный код
btXML	4	XML-документ
btNamedFile	5	Именованный файл
btVisualBasicScript	6	Скрипт Visual Basic
btXHTML	7	XHTML-документ
btJavaScript	8	Скрипт JavaScript
btHTML	9	HTML-документ