var
  rectangle1, rectangle2 : TRect;

begin
  // Установка первого прямоугольника, используя функцию Rect
  // Обратите внимание, что мы заменяем Types версию Rect.
  rectangle1 := Classes.Rect(Point(10, 60), Point(50, 80));

  // Установка идентичного 2-го прямоугольника, используя функцию Bounds
  rectangle2 := Bounds(10, 60, 40, 20);

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

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