Описание:
Delphi функция Point берет X и Y
параметры, оценивает и возвращает величину TPoint, содержащую их.
Пример кода:
var
start, finish : TPoint;
begin
// Set up the start point directly
start.X := 1;
start.Y := 2;
// Set up the finish point using the Point method
finish := Point(1, 2);
// Is the start
point equal to the finish point?
if PointsEqual(start, finish)
then ShowMessage('start = finish')
else
ShowMessage('start <> finish');
end;