TVector2b

type TVector2b = record

  case Integer of

    0: (

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

      );

    1: (

        X: Byte;

        Y: Byte;

      );

end;