Квадрат расстояния между двумя точками задаваемыми вещественными координатами
function LayDistance(const x1, y1, x2, y2: Double): Double; overload;