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