[[xEsk]]

Hola.

Código Delphi [-]
function HtmlToColor(Color: string): TColor;
begin
  Result:=StringToColor('$' + Copy(Color, 6, 2) + Copy(Color, 4, 2) + Copy(Color, 2, 2));
end;

Saludos.