1type
2  TInstantMessageAttachmentType = (imaFile, imaImage, imaHyperLink, imaObject);

Или

1type
2  TInstantMessageAttachmentType = TOleEnum;
3const
4  imaFile = $00000000;
5  imaImage = $00000001;
6  imaHyperLink = $00000002;
7  imaObject = $00000003;

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

Имя	Значение	Назначение
imaFile	0	Файл
imaImage	1	Изображение
imaHyperLink	2	Гиперссылка
imaObject	3	Объект