Ну вотс, готово, либа здесь:
http://andreyman.nm.ru/Aops.zip
Юзается это так:
Function ADeleteTris (surf, tris)
I_BufStart=IndexBufStart(surf)
I_BufEnd=IndexBufEnd(surf)
DeleteTris *surf, I_BufStart, I_BufEnd , tris
End Function
Function SetTriangleVertex (surf, tris,TrangleVertex, NewValue)
SetTrisVertex ( IndexBufStart(surf), tris,TrangleVertex,NewValue)
End Function
Только не советую применять эту ком-ду слишком часто.