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;