1type
2  TUserAccessMode = (uaFullAccess, uaReadOnly, uaAccessDenied);

Или

1type
2  TUserAccessMode = TOleEnum;
3const
4  uaFullAccess = $00000000;
5  uaReadOnly = $00000001;
6  uaAccessDenied = $00000002;

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

Имя	Значение	Назначение
uaFullAccess	0	Полный доступ
uaReadOnly	1	Доступ только для чтения
uaAccessDenied	2	Доступ запрещен