Enum to String

Hej

Jeg vil gerne konvertere en enum værdi til værdiens navn på string form.

Jeg ved godt at man kan gøre følgende:

Type
TEnumVar = (a,b,c);
EnumVar: TEnumVar;

GetEnumName(TypeInfo(TEnumVar),Ord(EnumVar));

men jeg kunne godt tænke mig at lave en function, som kun modtager selve variablen, og retunere en string.
Noget i stil med:

EnumToStr(EnumVar);

Det ville se meget elegant ud, men kan det lade sig gøre ?