Point

type Point = record

  case SInt16 of

    0: (

        v: SInt16;

        h: SInt16;

      );

    1: (

        vh: array [0..1] of SInt16;

      );

end;