1type
2  TBlobSubType = (bsText, bsImage, bsBinary);

Или

1type
2  TBlobSubType = TOleEnum;
3const
4  bsText = $00000000;
5  bsImage = $00000001;
6  bsBinary = $00000002;

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

Имя	Значение	Назначение
bsText	0
bsImage	1
bsBinary	2