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