program HelloWorld;
uses typeinfo;
type
MyEnum = (HELLO, WORLD);

var
str1,str2:string;
pinfo:PTypeInfo;

begin
WRITELN('StringにEnumの名前を代入する方法');
WRITELN('要:"uses typeinfo;"');
pinfo:=TypeInfo(MyEnum);
str1:= GetEnumName(pinfo, Integer(HELLO));
str2:= GetEnumName(pinfo, Integer(WORLD));
writeln( str1,' ', str2 );
end.