btUsageBitfield

type btUsageBitfield = bitpacked record

  case Byte of

    1: (

        usedVertexA: Boolean;

        usedVertexB: Boolean;

        usedVertexC: Boolean;

        usedVertexD: Boolean;

      );

    2: (

        field: Byte;

      );

end;