Расстояние между двумя точками задаваемыми вещественными координатами
function Distance(const Point1, Point2: TDoublePoint): Double; overload;