Преобразовать полилинию в ломаную (т.е. удалить все точки полилинии, принадлежащие отрезкам)
function PolylineToPolyChain (pBuf: PDoublePoint; count : integer; flClosed : boolean; delta: Double) : integer;