Source position: winapih.inc line 316
procedure GetRGBIntValues(
RGB: DWORD;
var R: Integer;
var G: Integer;
var B: Integer
);