1type
2  TExcelSheetKind = (skNone, skFirst, skFirstHidden, skLast, skNew);

Или

1type
2  TExcelSheetKind = TOleEnum;
3const
4  skNone = $00000000;
5  skFirst = $00000001;
6  skFirstHidden = $00000002;
7  skLast = $00000003;
8  skNew = $00000004;

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

Имя	Значение	Назначение
skNone	0	Не переносить данные на лист
skFirst	1	На первый лист
skFirstHidden	2	На первый скрытый лист
skLast	3	На последний лист
skNew	4	На новый лист