TgmPoint2D

type TgmPoint2D = record

  case Byte of

    0: (

        X: Double;

        Y: Double;

      );

    1: (

        Elem: array [0..1] of Double;

      );

end;