1type
2  TDuplicates = (dupIgnore, dupAccept, dupError);

Или

1type
2  TDuplicates = TOleEnum;
3const
4  dupIgnore = $00000000;
5  dupAccept = $00000001;
6  dupError = $00000002;

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

Имя	Значение	Назначение
dupIgnore	0	Игнорировать дубликаты
dupAccept	1	Разрешить дублирование
dupError	2	Генерировать ошибку дублирования