上記のソースの一部を削除したらライティング処理ができました。

削除した所
//VertexFormat.Diffuse
//vert[n].Color = 取得した色
//public int Color

原因は、頂点データに色を付加してたからみたいです。
色は、別途マテリアルを適用させないといけなかったんですね。