Получить точку с вещественными координатами
function DoublePoint(x, y: Double): TDoublePoint;
x
y
точка с реальными координатами