var Color : TColor; R,G,B : Integer; R := Color and $ff; G := (Color and $ff00) shr 8; B := (Color and $ff0000) shr 16; 转载于:https://www.cnblogs.com/myamanda/articles/1542806.html