如何把TColor 换算为RGB的整数值？

var Color : TColor;
    R,G,B : Integer;
R := Color and $ff;
G := (Color and $ff00) shr 8;
B := (Color and $ff0000) shr 16;