ООП Pascal - Pascal ABC

Помогите пожалуйста. Как в форме при нажатии на кнопку менять цвет пера

Листинг программы

procedure Button1OnClick;
begin
  with PaintBox1.Canvas do
   begin
    Pen.Color:=clRed;
    Rectangle(10,10,50,50);
   end;
end;

Объяснение кода листинга программы

Объявлена процедура Button1OnClick.
В начале процедуры объявлена переменная PaintBox1 типа TPaintBox.
Переменная PaintBox1 приведена к типу TCanvas.
Внутри с помощью оператора with задаются свойства Pen.Color и TCanvas.Rectangle.
Задается значение свойства Pen.Color равным clRed.
Задаются координаты для прямоугольника (10,10,50,50) относительно верхнего левого угла элемента управления PaintBox1.
Выполняется команда TCanvas.Rectangle(10,10,50,50).
Завершается выполнение процедуры Button1OnClick.