Oder ein Enum deklarieren und dann ein Array über das Enum aufbauen, in etwa so:
Delphi-Quellcode:
type
TMyTyp = (mt_200, mt_205, mt_245, mt_255);
const
myArray: array[TMyTyp] of String = ('Ach','du','grosse','Jacke');
Solange das Enum nicht mehr als 255 Werte hat, wird das auch weiterhin funktionieren.
Bernhard