Слить в одну точку (рекурсивно) каждую пару точек полилинии, находящихся друг от друга на расстоянии меньше заданного
function MergeClosePointsOfPolyline (pBuf: PDoublePoint; count : integer;
flClosed : boolean; distance: Double) : integer;