如何将TColor类型的颜色值转换分解成代表R,G,B的三个整数值？(50分)

如题，谢谢！

function ColorToHex(color: TColor):string;
begin
result := inttohex(colortorgb(color), 6);
result := copy(result, 5, 2) + copy(result, 3, 2) + copy(result, 1, 2);
end;
...
s := ColorToHex(clRed);
R := copy(s, 1, 2);
G := copy(s, 3, 2);
B := copy(s, 5, 2);

Thank you very much!