TVector3d

type TVector3d = record

  case Integer of

    0: (

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

      );

    1: (

        X: Double;

        Y: Double;

        Z: Double;

      );

end;