Farbe als Klartext

[halinchen]

Kann man ja mit den wichtigsten Farben selber schreiben:

Delphi-Quellcode:

function PrettyNameOfColor(Color:TColor):String;
begin
  result := ColorToString(clRed);
  If result := 'clRed' then result := 'Rot' else
  If result := 'clBlack' then result := 'Black' else
  ...
end;

Ich hab jetzt kein Delphi zur Hand: Oder hieß das ColorToStr(...)