uses Graphics;
//...
function FlipColor(Const AValue:TColor):TColor;
type F = Record L,M,H,A:Byte; End;
var
J:Byte;
begin
//$F0 FB FF(TColor)
//#FF FB F0(HTML color)
Result := AValue;
J := F(Result).L;
F(Result).L:= F(Result).H;
F(Result).H:=J;
end;
function HtmlColorToColor(S:String):TColor;
var k: integer;
begin
if S[1] = '#' then S[1]:= '$';
Result := FlipColor(StrToInt(S));
end;
function ColorToHtml(Const AValue:Tcolor):String;
begin
Result := '$'+IntTOHex(FlipColor(AValue),6);
end;
//example
myTColor:=HtmlColorToColor('#FFA0D2');