Как преобразовать цвета в строку - название цвета VCL?

Вопрос:

Как преобразовать цвета в строку - название цвета VCL?

Ответ:

Модуль graphics.pas содержит функцию ColorToString() которое преобразует допустимое значение TColor в его строковое представление используя либо константу-название цвета (по возможности) либо шестнадцатиричную строку.

Обратная функция - StringToColor()

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(ColorToString(clRed));
  Memo1.Lines.Add(IntToStr(StringToColor('clRed')));
end;