TVector3b

type TVector3b = record

  case Integer of

    0: (

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

      );

    1: (

        X: Byte;

        Y: Byte;

        Z: Byte;

      );

end;