Цвет строкой
В модуле graphics имеются две недокументированные функции:
function ColorToString(Color: TColor): string;
Если значение TColor является именованным цветом, функция возвращает имя цвета ("clRed"). В противном случае возвращается шестнадцатиричное значение цвета в виде строки.
function StringToColor(S: string): TColor;
Данная функция преобразует "clRed" или "$0000FF" во внутреннее значение цвета.