TPacket

type TPacket = packed record

  case Integer of

    0: (

        b0: Byte;

        b1: Byte;

        b2: Byte;

        b3: Byte;

      );

    1: (

        i: Integer;

      );

    2: (

        a: array [0..3] of Byte;

      );

    3: (

        c: array [0..3] of Byte;

      );

end;