Перечисляемый тип перевести в строку?

[XPAiN]

Есть type TPriority = (Critical, Warning, Info);
Есть Procedure SndMsg(Priority:TPriority);

Каким образом мне получить Priority в виде строки?

Не пинайте сильно не разу не пользовался, а сейчас позарез надо

[Kotofff]

Примерно так :

Procedure SndMsg(Priority:TPriority);
begin
  case Priority of
    Critical: Label1.caption := 'Critical';
    Warning: Label1.caption := 'Warning';
    Info: Label1.caption := 'Info';
end;

Дальше сам ...

[mihali4]

Оригинально...
А если их там пара сотен - значений ?
Вот как нужно (пример):

procedure TForm1.Button1Click(Sender: TObject);
var mypr: TPriority;
begin
mypr:=Critical;
Label1.Caption:=GetEnumName(TypeInfo(TPriority),Ord(mypr));
end;

Или, если точно для задачи ТС:

procedure SndMsg(Priority:TPriority);
begin
Form1.Label1.Caption:=GetEnumName(TypeInfo(TPriority),Ord(Priority));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SndMsg(Critical);
end;

З.Ы. В uses нужно добавить TypInfo.

[XPAiN]

mihali4, огромное спасибо все работает как я хотел!!