Delphi тип TRect содержит значения координат прямоугольника

Delphi тип TRect содержит значения координат прямоугольника.

Тип TRect в Delphi: Создание одного прямоугольника вручную, другого использования Rect

var
  rectangle1, rectangle2 : TRect;

begin
  // Установка первого прямоугольника вручную
  rectangle1.Left   := 0;
  rectangle1.Top    := 0;
  rectangle1.Right  := 40;
  rectangle1.Bottom := 60;

  // Установка второго прямоугольника, используя функцию Rect
  rectangle2 := 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;