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

uses vcl;
 
//$VCLDESIGN+
var
  Form1: Form;
  PaintBox1: PaintBox;
//$VCLDESIGN-
 
procedure PaintBox1OnMouseDown(x,y,button: integer);
begin
  if button=1 then
   with PaintBox1.Canvas do
    begin
     pen.color:=clRed;
     brush.color:=clRed;
     circle(x,y,10);
    end
end;
 
procedure PaintBox1OnDblClick;
begin
  with PaintBox1.Canvas do
    begin
     pen.color:=clBlue;
     brush.color:=clBlue;
     rectangle(PaintBox1.width div 2-150,PaintBox1.height div 2-150,PaintBox1.width div 2+150,PaintBox1.height div 2+150);
    end
end;
 
procedure Form1OnCreate;
begin
 Form1.Caption:='По нажатию левой клавиши-круг, по двойному щулчку- квадрат ';
end;
 
procedure InitControls;
begin
  Form1:= Form.Create(0,0,623,589);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Форма1','');
  PaintBox1:= PaintBox.Create(Form1,32,24,553,489);
  PaintBox1.InitControl(True,True,alNone,crDefault,0,'0','');
  Form1.OnCreate:=Form1OnCreate;
  PaintBox1.OnDblClick:=PaintBox1OnDblClick;
  PaintBox1.OnMouseDown:=PaintBox1OnMouseDown;
  Form1.Position:= poScreenCenter;
  Form1.OnCreate;
  Form1.Show;
end;
 
begin
  InitControls;
 
end.