TVector4b

type TVector4b = record

  case Integer of

    0: (

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

      );

    1: (

        X: Byte;

        Y: Byte;

        Z: Byte;

        W: Byte;

      );

end;