[dec]

Hola,

Código Delphi [-]
function ColorToRGB
 (color: TColor) : string;
begin
  Result := Format
  (
    '#%.2x%.2x%.2x',
    [GetRValue(color),
     GetGValue(color),
     GetBValue(color)]
  );
end;

También pueden serte útiles (creo) las funciones "ColorToString" y "StringToColor". Échalas un vistazo a ver. Las tienes en la unidad "Graphics".