Найти расстояние от начала полилинии до заданной точки
function GetPolylineLengthFromBeginToPointInt(pBuf: PPoint; Index, Count, oType, aPointNumber: integer; x,y: double): double;