Konstante ...

[AnTiPrimaTe]

guck mal, ob das hier passt:

Code:

type 
 TMeineNamen = (Peter,Heinz,Uta);

Dann kannst Du mit Index (0=Peter, 1=Heinz etc.)
den Text bekommen und zwar so:

Code:

 uses 
  TypInfo

  ...

 GetEnumName(TypeInfo(TMeineNamen),integer(Index))