[darkamerico]

La solucion era la siguiente:

Código Delphi [-]
function String2Color(s: string): TColor;
begin
  s := 'cl' + s;
  Result := StringToColor(s);
end;

function Color2String(Color: TColor): string;
begin
  Result := LowerCase(ColorToString(Color));
  if Copy(Result, 1, 2) = 'cl' then
    Delete(Result, 1, 2);
end;

Espero que sea de utilidad.

Fuente: http://www.everyething.com/Different...tion-in-Delphi