Aqui está como exibir em tempo de execução uma string representando um tipo enum do Delphi:
enum:
TProgrammerType = (tpDelphi, tpVisualC, tpVB, tpJava) ;
uses TypInfo;
...
var
s: string;
begin
s := GetEnumName(TypeInfo(TProgrammerType),
integer(tpDelphi));
//s='tpDelphi'
