TARGB

type TARGB = packed record

  case Boolean of

    False: (

        B: Byte;

        G: Byte;

        R: Byte;

        A: Byte;

      );

    True: (

        Color: TColor32;

      );

end;