TARGB

TARGB = packed record
case boolean of
false: (B: Byte; G: Byte; R: Byte; A: Byte);
true: (Color: TColor32);
end;