Найти расстояние до ближайшей точки на полилинии
function GetLengthToNearestPointOnPolylineInt(pBuf: PPoint;
n0,Count,oType: integer; x,y,Delta: double; var LastPointNumber: integer;
var aResultX,aResultY,aDistance,aLength: double;
aCheckVertexMode: TCheckVertexMode = cvmVertexSnap;
MaxSearchRadius: double = -1): integer;