Пример кода : Сравнение различных и идентичных точек
var
start, finish : TPoint;
begin // Установка начальной и конечной точек
start := Point(1, 2);
finish := Point(3, 4); // Начальная точка равна конечной точке?
if PointsEqual(start, finish)
then ShowMessage('1,2 = 3,4')
else ShowMessage('1,2 <> 3,4'); // Попытка использования PointsEqual с идентичными значениями
if PointsEqual(Point(2,9), Point(2,9))
then ShowMessage('2,9 = 2,9')
else ShowMessage('2,9 <> 2,9');
end;