1type
2  TSecurityModel = (smFullAccess, smPublic, smPrivate, smByAffiliation);

Или

1type
2  TSecurityModel = TOleEnum;
3const
4  smFullAccess = $00000000;
5  smPublic = $00000001;
6  smPrivate = $00000002;
7  smByAffiliation = $00000003;

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

Имя	Значение	Назначение
smFullAccess	0	Доступ не ограничен
smPublic	1	Публичный объект
smPrivate	2	Приватный объект
smByAffiliation	3	Доступ по принадлежности