Найти ошибки в коде и дополнить его

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,x,y:integer;   //объявление переменных типа integer
begin
with Image1.Canvas do  //работа с компонентой Image как полотном для рисования Canvas
  Image1.Canvas.Pen.Color:=ColorBox1.Selected; //выбор цвета геометрической фигуры
Image1.Canvas.Rectangle(200,200,50,50);
  Image1.Canvas.MoveTo(90,50);
  Image1.Canvas.MoveTo(90,50);
    Image1.Canvas.Moveto(100,100);
 Image1.Canvas. Lineto(150,50);
  Image1.Canvas.Lineto(200,100);
  Image1.Canvas.Lineto(100,100);
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var i,x,y,r:integer;
    a:double;
begin
r:=30;
x:=Image1.Width div 2;
y:=r;
a:=pi/2;
with Image1.Canvas do
 begin
  Pen.Color:=ColorBox1.Selected;
  //рисование звезды
  MoveTo(round(x+r*cos(a)),round(y-r*sin(a)));
  for i:=1 to 5 do
   begin
    a:=a+7*2*pi/5;
    LineTo(round(x+r*cos(a)),round(y-r*sin(a)));
   end;
  //рисование башни 
  MoveTo(x,y+r div 2-5);
  LineTo(x-3*r div 2,y+3*r);
  MoveTo(x,y+r div 2-5);
  LineTo(x+3*r div 2,y+3*r);
  Rectangle(x-3*r div 2,y+3*r,x+3*r div 2,y+6*r);
  RoundRect(x-r,y+7*r div 2,x+r,y+9*r div 2,r,r);
 end;
end;