＿＿＿＿＿
　　　∧,,∧∩　 ／
　 頒ﾟДﾟ；彡＜　1行かよ！
　 　 ,;ﾞ⊃,ｼﾞ　　 ＼＿＿＿＿＿
　〜ﾐ　,,○
　 　 ∪ 　　　
function RecToString(Info: PTypeInfo; Value: Integer): String;
begin
Result := GetEnumName(Info, Value);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button2.Caption := RecToString(TypeInfo(TAlign), Byte(Form1.Align));
end;
ちょっとキャストが気になるけど、なかなかよさげ

次は文字列から列挙型変換ですが...