TVector4f

type TVector4f = record

  case Integer of

    0: (

        V: array [0..3] of Single;

      );

    1: (

        X: Single;

        Y: Single;

        Z: Single;

        W: Single;

      );

end;