1type
2  TScope = (scPrivate, scPublic);

Или

1type
2  TScope = TOleEnum;
3const
4  scPrivate = $00000000;
5  scPublic = $00000001;

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

Имя	Значение	Назначение
scPrivate	0	Не видимо пользователям
scPublic	1	Видимо пользователям