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

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

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