TVector4sb

type TVector4sb = record

  case Integer of

    0: (

        V: array [0..3] of ShortInt;

      );

    1: (

        X: ShortInt;

        Y: ShortInt;

        Z: ShortInt;

        W: ShortInt;

      );

end;