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;