TVector3p

type TVector3p = record

  case Integer of

    0: (

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

      );

    1: (

        X: Pointer;

        Y: Pointer;

        Z: Pointer;

      );

end;