＿＿＿＿＿＿＿＿＿＿＿＿＿
　　 ∧,,∧　　　 ／
　　ミ,,ﾟДﾟ彡　＜　どぞ
　　 U　　つ 　　＼
　＠ﾐ　　ﾐ 　　　　 ￣￣￣￣￣￣￣￣￣￣￣￣￣
　　 ∪''∪　

//TColorを'#RRBBGG'形式に変換
function ColorToHtmlHex(Color: TColor): String;
begin
Result := '#'+
IntToHex(GetRValue(ColorToRGB(Color)),2) +
IntToHex(GetGValue(ColorToRGB(Color)),2) +
IntToHex(GetBValue(ColorToRGB(Color)),2);
end;

//'#RRBBGG'形式をTColorに変換
function HtmlHexToColor(HtmlHex: String): TColor;
begin
if HtmlHex[1]='#' then
Delete(HtmlHex, 1, 1);
Result := StringToColor(
'$'+ Copy(HtmlHex, 5, 2)+
Copy(HtmlHex, 3, 2)+
Copy(HtmlHex, 1, 2) );
end;