Word24

type Word24 = packed record

  case Integer of

    0: (

        Bytes: array [0..2] of Byte;

      );

    1: (

        Word16Lo: Word16;

        ByteHi: Byte;

      );

end;