Конвертировать значение перечислимого типа в строку

uses 
     System.TypInfo
    ;

type
  TMyType = (mtFirst, mtSecond, mtThird, mtForth, mtFifth, mtLast);


var
  TM  : TMyType;
  TFS: TFontStyle;
begin
  // Допустимые значения TFontStyle
  for TFS := Low(TFontStyle) to High(TFontStyle) do
    Memo3.Lines.Add(GetEnumName(TypeInfo(TFontStyle), ord(TFS)));
 
  // или собственного типа
  for TM := Low(TMyType) to High(TMyType) do
    Memo3.Lines.Add(GetEnumName(TypeInfo(TMyType), ord(TM)));
end;