Получить точку с вещественными координатами по точке с целочисленными координатами
function DoublePointByPoint(p: TPoint): TDoublePoint;
p