[M.A.D.M.A.N.]

Не занимайся грыже, блин. GetEnumName в цикле вызывай, если так надо.

Дыблокод:

Код:

for type := low(ttype) to high(ttype) do
  showmessage(GetEnumName(type)