TVector2s

type TVector2s = record

  case Integer of

    0: (

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

      );

    1: (

        X: SmallInt;

        Y: SmallInt;

      );

end;