Farbe umwandeln funktioniert nicht

[Klaus01]

function ColorToStr(AFarbe:String):String;
begin
case AFarbe of
'clRed':Result := 'Rot';
....
end;
end;

AFarbe ist kein Ordinaltyp also ein einfachh abzählbarer Typ sein muß.

Was hat denn FarbCodeText für eine Typdeclartion?

Grüße
Klaus