Функция Rect – создаёт объект TRect (прямоугольник) с указанием 2 точек или 4 координат

Функция Rect в Delphi создаёт величину TRect с указанием 2 точек или 4 координат.

Функция Rect: Создание двух прямоугольников с использованием обоих синтаксисов

var
  rectangle1, rectangle2 : TRect;

begin
  // Установка первого прямоугольника, используя 1-ый синтаксис
  rectangle1 := Rect(20, 40, 60, 80);

  // Установка второго прямоугольника, используя функцию Rect
  rectangle2 := Classes.Rect(Point(20, 40), Point(60, 80));

  // Отображение верхней левой и правой нижней координаты каждого прямоугольника
  ShowMessageFmt('Координаты 1-го Прямоугольника = %d,%d,%d,%d',
                 [rectangle1.Left,
                  rectangle1.Top,
                  rectangle1.Right,
                  rectangle1.Bottom]);

  ShowMessageFmt('Координаты 2-го Прямоугольника = %d,%d,%d,%d',
                 [rectangle2.Left,
                  rectangle2.Top,
                  rectangle2.Right,
                  rectangle2.Bottom]);
end;