поменять местами оси координат в точке с вещественными координатами
function SwapDoublePointCoordinates(p: TDoublePoint): TDoublePoint;