TKColorRec

type TKColorRec = packed record

  case Integer of

    0: (

        R: Byte;

        G: Byte;

        B: Byte;

        A: Byte;

      );

    1: (

        Value: Cardinal;

      );

end;