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;