Kolor HEX

Zdaje sobie sprawe z tego za sie raczej na pewno powtarzam, ale może ktoś mi powie jak sie przelicza jakiś kolor na wartość szesnastkowom.
Abo jakiś link do artykółu oe HEXach. czy coś?

function ColorToHexRGB(Color: TColor): String;
var tmpStr, tmpStr2: string[6];
begin
tmpStr:=IntToHex(Color,6);
tmpStr2[1]:=tmpStr[5];
tmpStr2[2]:=tmpStr[6];
tmpStr2[3]:=tmpStr[3];
tmpStr2[4]:=tmpStr[4];
tmpStr2[5]:=tmpStr[1];
tmpStr2[6]:=tmpStr[2];
Result:=tmpStr2;
end;

[code]var
Kolor:String;
R, G, B: Integer;
begin
R:=GetRValue(pnlKolor.Color);
G:=GetGValue(pnlKolor.Color);
B:=GetBValue(pnlKolor.Color);
Kolor:=IntToHex(R,2)+IntToHex(G,2)+IntToHex(B,2);
ShowMessage(Kolor);
end;[/code]

zakladajac ze pnlKolor to komponent TPanel

podziekowania dla dryobatesa