function StrToColor(S: String): TColor;
The StrToColor function converts the string passed in S, formatted as '#rrggbb', into a color. Raises an exception if not successful.