FGALEL 17
列挙型の要素

みなさん、こんにちは。

列挙型の値の識別子を文字列として取得したいのですが、どうすればいいのでしょう。
やりたいことというか、現在のコードは以下のようになっています。

type Ttest = (abc,def,ghi);
const testvalue:array [abc..ghi] of string=('abc','def','ghi');

var i:Ttest;
begin
for i:=abc to ghi do
   showmessage(testvalue[i]);
end;

とりあえず、動いていることは動いていますが、いくらなんでもこんなコードで
はあれなんで。何か、よさげな手続きか関数がきっとあるとは思うのですが、よ
く解らないので、どなたかご紹介いただけると幸いです。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　としき