1type
2  TInstantContactStatus = (icsPending, icsRefused, icsApproved);

Или

1type
2  TInstantContactStatus = TOleEnum;
3const
4  icsPending = $00000000;
5  icsRefused = $00000001;
6  icsApproved = $00000002;

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

Имя	Значение	Назначение
icsPending	0	Рассматривается
icsRefused	1	Отказано
icsApproved	2	Утвержденный