Проверить где находится точка относительно другой точки, AExactitude - точность определения позиции
function CheckPointPositionRelativePoint(P1,P2: TDoublePoint; AExactitude: Double = EPSILON_VERY_LOW): Integer;