По щелчку левой кнопкой мыши нарисовать на компоненте PaintBox окружность

uses vcl;
 
//$VCLDESIGN+
var
  Form1: Form;
  PaintBox1: PaintBox;
  CheckBox1: CheckBox;
  CheckBox2: CheckBox;
//$VCLDESIGN-
 
procedure PaintBox1OnMouseDown(x,y,button: integer);
begin
  if button=1 then //если нажата левая клавиша мыши
   begin
    if CheckBox1.Checked then //и чекбокс1
      with  PaintBox1.Canvas do //рисуем окпужность
       begin
        pen.color:=clRed;
        circle(PaintBox1.width div 2,PaintBox1.height div 2,PaintBox1.height div 2-10);
       end
    else if CheckBox2.Checked then //если чекбокс 2
      with  PaintBox1.Canvas do//рисуем круг
       begin
        pen.color:=clGreen;
        brush.color:=clGreen;
        brush.style:=bsSolid;
        circle(PaintBox1.width div 2,PaintBox1.height div 2,PaintBox1.height div 2-30);
       end
    else Showmessage('Вы не выбрали что рисовать')//иначе сообщаем что ничего не выбрали
   end;
 end;
procedure Form1OnCreate;//при создании формы
begin
 Form1.Caption:='Выберите что рисовать и нажмите левую кнопку мыши' //заголовок формы
end;
 
procedure InitControls;
begin
  Form1:= Form.Create(0,0,490,358);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Форма1','');
  Form1.BorderStyle:= bsDialog;
  PaintBox1:= PaintBox.Create(Form1,32,8,433,241);
  PaintBox1.InitControl(True,True,alNone,crDefault,0,'0','');
  CheckBox1:= CheckBox.Create(Form1,24,256,177,17);
  CheckBox1.InitControl(True,True,alNone,crDefault,clBtnFace,'Нарисовать окружность ','');
  CheckBox2:= CheckBox.Create(Form1,24,288,185,17);
  CheckBox2.InitControl(True,True,alNone,crDefault,clBtnFace,'Нарисовать закрашенный круг','');
  Form1.OnCreate:=Form1OnCreate;
  PaintBox1.OnMouseDown:=PaintBox1OnMouseDown;
  Form1.Position:= poScreenCenter;
  Form1.OnCreate;
  Form1.Show;
end;
 
begin
  InitControls;
 
end.