Здравствуйте.
Посоветуйте чем заменить перечислимые типы в компонентном паскале?
например:
TYPE
ТМомент: LONGINT;  (*номер такта в сотых долях*)
ТЛад      = (лад01, лад02, лад03, лад04, лад05, лад06, лад07, лад08, лад09, лад10, лад11, ла12 );
ТСтруны = (струна01, струна02, струна03, струна04, струна05, струна06);

ТНота  = RECORD момент:ТМомент; струна:ТСтруна; лад:ТЛад END;

Чтобы при присваивании значений полям переменной типа ТНота происходила проверка типов
например:
VAR
нота:ТНота;

BEGIN
нота.момент:= 100;
нота.струна:= струна01;
нота.лад    := лад03;
END;
И попытке присвоить нота.струна:=лад01; компилятор выдавал ошибку нарушения
типов.

Я программирую на дельфи, и мечтаю перейти на блакбос, а перечислимые типы мой конек,
без них, я как без рук .
Помогите, пожалуйста, с этим вопросом.

Саша Кулов