Farbe umwandeln funktioniert nicht

[alexo]

passiert das selbe....



ich wollte schon die funktion umändern auf

Delphi-Quellcode:

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

aber da meldet der compiler ordinaltyp erforderlich?!?