[AlexandrV]

пример нашел как такие типы перевести в строку

Код:

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

но как их перевести в тип