1type
2  TShowObjectInfoType = (soName, soDescription);

Или

1type
2  TShowObjectInfoType = TOleEnum;
3const
4  soName = $00000000;
5  soDescription = $00000001;

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

Имя	Значение	Назначение
soName	0	Показывать имена
soDescription	1	Показывать наименования