Delphi тип TPoint містить цілі значення X і Y

Delphi тип TPoint містить цілі значення X і Y.

Тип TPoint в Delphi: Назначення 2 змінних TPoint вручну та за допомогою Point

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;