1type
2  TChangeAction = (atCreated, atChanging, atChanged, atDestroying, atPasted);

Или

1type
2  TChangeAction = TOleEnum;
3const
4  atCreated = $00000000;
5  atChanging = $00000001;
6  atChanged = $00000002;
7  atDestroying = $00000003;
8  atPasted = $00000004;

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

Имя	Значение	Назначение
atCreated	0	Создан
atChanging	1	Изменится
atChanged	2	Изменен
atDestroying	3	Удаляется
atPasted	4	Вставлен из буфера