GetRValue, GetGValue, GetBValue - дадут тебе байты цветов, затем тебе надо их перевести в hex...

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Взято с Vingrad.ru http://forum.vingrad.ru

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

Автор: Pegas
Взято с Vingrad.ru http://forum.vingrad.ru