assuming the center of the sphere is in (0, 0, 0) - the normal of each vertex is the normalized position of that vertex. so all you need to do is Vertex[n].Normal := normalize(Vertex[n].Position)