TVector2d

type TVector2d = record

  case Integer of

    0: (

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

      );

    1: (

        X: Double;

        Y: Double;

      );

end;