Удалить дублирующие точки
function DeleteDuplicateVertexes(Delta: double): integer;
Delta
-1, если объект с самопересечением