Source position: winapih.inc line 274
procedure GetRGBValues(
RGB: DWORD;
var R: Byte;
var G: Byte;
var B: Byte
);