1type
2  XlBorderWeight = (xlMedium = -4138, xlHairline = 1, xlThin = 2, xlThick = 4);

Или

1type
2  XlBorderWeight = TOleEnum;
3const
4  xlMedium = $FFFFEFD6;
5  xlHairline = $00000001;
6  xlThin = $00000002;
7  xlThick = $00000004;

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

Имя	Значение	Назначение
xlMedium	-4138
xlHairline	1
xlThin	2
xlThick	4