Eigenen Typ in string umwandeln

[Nick Phoenix]

Das ganze steht in der Typendeklaration der UNIT

Delphi-Quellcode:

type
  TGebauede = (CONSTY, POWERP, BIODO, REFFI, OILRI, BARRA, LIFAC, RADAR, AKADE, REPAD, SAIRP, SHELP, SLABO, SABAG, MGTUR, LIFLA, HEFAC, MACDO, BAIRP, AHELP, ALABO, SPYCE, EMPKA, STECH, FDEFE, LPTUR, RBTUR, HEFLA, TABAR, EAKAD, HIFAC, SPACP, SUPER, SDIDE, SHIEL, DEFWA, ROTUR, PLTUR, RAILT);

Wie sähe denn jetzt eine Procedure aus, mit der ich die Werte in strings umwandeln kann?