1type
2  TDeleteRule = (drRestrict, drCascade, drSetNull);

Или

1type
2  TDeleteRule = TOleEnum;
3const
4  drRestrict = $00000000;
5  drCascade = $00000001;
6  drSetNull = $00000002;

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

Имя	Значение	Назначение
drRestrict	0	Нет правила
drCascade	1	Каскадное удаление
drSetNull	2	Очистить ссылку