Как определить максимальное значение перечисляемого типа

[Swarog]

Здраствуйте! Помогите пожалуйста оживить код...

type
    TLexemType = (tltUnknown,tltVarible, tltKeyWord, tltDidgital, tltSeparator, tltSpace, tltString, tltComment);
var
    ColorTable: array [0..high(TLexemType)] of tcolor;

В ходе возможно увеличится количество констант в TLexemType хотелось бы на автомате изменять размер таблиц. Пока застопорился что high(TLexemType) не применима в данном контексте. Как можно узнать верхнюю границу?

[Swarog]

Ладно может есть красивое решение... я пока сделал так (как говорится через ж...), дабавил незначущую константу в конец перечисления:

type
    TLexemType = (tltUnknown,tltVarible, tltKeyWord, tltDidgital, tltSeparator, tltSpace, tltString, tltComment,tlt_Last);
var
    ColorTable: array [0..integer(tlt_Last)-1] of tcolor;

новые константы буду добавлять просто до tlt_Last,

[Serge_Bliznykov]

а если так?

type
    TLexemType = (tltUnknown,tltVarible, tltKeyWord, tltDidgital, tltSeparator, tltSpace, tltString, tltComment);
var
    ColorTable: array [0..ord(High(TLexemType))] of tcolor;

[Swarog]

Вооо, я же говорил есть красивое решиние, премного блогадарен.