uses TypInfo;

for Theme := Low(TSmoothColor) to High(TSmoothColor) do
CB1.Items.Add(GetEnumName(TypeInfo(TSmoothColor), ord(Theme)));

L'inverse est juste un transtypage : Theme :=...