列挙型一つ一つにToString関数作るのは
かなり手間だと思うです..

function TRecordToString( const a: TRecord; Value: TRecord) : string;

こんな関数ﾃﾝﾌﾟﾚがないから作れないんですよね。
悲すぃです〜

　　　 ∧,,∧　　また,includeで作らなきゃいけないのかしら...
　　　ミ,,ﾟДﾟ彡　　それも浦和座みたいで、美しい言語Pascalの
　 　 ﾐ　つ旦)~~　　理想からは程遠い...
　 〜と,,,~),,~)