Пример кода : Назначение 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;
