var
  start, finish : TPoint;

begin
  // Устанавливаем точку начала непосредственно
  start.X := 1;
  start.Y := 2;

  // Установка точки конца, используя метод Point
  finish := Point(1, 2);

  // Точка начала равен точке конца?
  if PointsEqual(start, finish)
  then ShowMessage('start =  finish')
  else ShowMessage('start <> finish');
end;