procedure Rectangle(X1, Y1, X2, Y2: Integer) 

Рисует на канве текущим пером прямоугольник и закрашивает его текущей кистью.

Метод Rectangle рисует на канве текущим пером Pen прямоугольник, верхний левый угол которого имеет координаты (X1, Y1), а нижний правый - (X2, Y2). Прямоугольник закрашивается текущей кистью Brush.