#pas . . Vertexes: array of TCoord;//---------------------- Vertexesss: array of TCoord; . . for i := 0 to CountV - 1 do begin Mesh1.Vertexesss[i].X := 10; Mesh1.Vertexesss[i].Y := 20; Mesh1.Vertexesss[i].Z := 30; //Mesh1.Vertexes[0].Z=30 end; . . _hi_OnEvent(onFunc0, Mesh0.Vertexes[0].Z); _hi_OnEvent(onFunc1, Mesh1.Vertexesss[0].Z); end; end.