Функция Point – генерирует значение TPoint из значений X и Y

Функція Point в Delphi генерує значення TPoint із значень X и Y.

Функція Printer:Друк текстових рядків ширини та висоти сторінки на сторінці

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;