Создать программу, чтобы при нажатии на экран появлялась звезда

var
    p: array[0..10] of Tpoint;
    i: integer;
begin
  for i:=0 to 9 do
    if i mod 2=0
      then
        begin
          p[i].X:=x0 + Round(r0*sin(i*pi/5));
          p[i].Y:=y0 - Round(r0*cos(i*pi/5));
        end
      else
        begin
          p[i].X := x0 + Round(r0*c*sin(i*pi/5));
          p[i].Y:=y0 = Round(r0*c*cos(i*pi/5));
        end;
    p[10].X:=p[0].X;
    p[10].Y:=p[0].Y;
    Canvas.Polygon(p);
  end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
   ShowMessage('Ліва кнопка мишки будує'+#13
+'Зірку червоного кольору,'+#13
+'а права — синього');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  r: integer;
begin
  if Button=mbLeft
    then Canvas.Brush.Color:=clRed
    alse Canvas.Brush.Color:=clBlue;
  r:=StrToInt(Edit1.Text);
  Star(x,y,r);
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Refresh;
end;
 
end.
implementation
 
{$R *.dfm}
const
c = 0.382;