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