Hvordan, HexToInt?

Jeg har fundet det her, så.. jeg lukker


function TForm1.ColorToHTMLhex(p_clr: TColor) : String;
var
p_strhex,
p_strHTML : String;
begin
p_strhex := IntTohex(p_clr, 6);
p_strHTML := Copy(p_strhex, 5, 2) +
Copy(p_strhex, 3, 2) +
Copy(p_strhex, 1, 2);

result := p_strHTML;
end;

function TForm1.HTMLhexToColor(p_strhex: String): TColor;
var
p_strHTML : String;
begin
if p_strhex[1] = '#' then
p_strhex := Copy(p_strhex, 2, length(p_strhex));

p_strHTML := Copy(p_strhex, 5, 2) +
Copy(p_strhex, 3, 2) +
Copy(p_strhex, 1, 2);
result := StrToInt('$' + p_strHTML);
end;

TColor = Hex...