1type
2  TTranslationStatus = (tsNotTranslated, tsTranslated, tsUntranslatable, tsDirty);

Или

1type
2  TTranslationStatus = TOleEnum;
3const
4  tsNotTranslated = $00000000;
5  tsTranslated = $00000001;
6  tsUntranslatable = $00000002;
7  tsDirty = $00000003;

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

Имя	Значение	Назначение
tsNotTranslated	0	Не переведено
tsTranslated	1	Переведено
tsUntranslatable	2	Не нуждается в переводе
tsDirty	3	Грязный