Ошибка в построении - Pascal ABC (12616)

Program RA_EXAM;
uses VCL, utils;
var   MainForm: Form;
      e: PaintBox;
      P: Panel;
      i,x,y: integer;
      l: textlabel;
      se,se1: SpinEdit;
      b1,b2 : Button;
      A1,A2 :integer;
      const XX = 640;
            YY = 500;
            
procedure read_file;
var t:text;
begin
end;
 
procedure Draw;
var i,x,y: integer;
begin
read_file;
e.Pen.Width:= se1.Value;
//небо
if A1 = 1 then A1:= clAqua
else A1:= clBlue;
e.Pen.Color:= A1;
e.Brush.Color:=A1;
e.Brush.Style:=bsSolid;
e.rectangle(0,0,640,480);
//трава
e.Pen.Color:=clGreen;
e.Brush.Color:=clGreen;
e.Brush.Style:=bsSolid;
e.Circle(250, 670, 400);
e.Circle(550, 570, 300);
//деревья
e.Pen.Color:=clBlack;
e.Brush.Color:=clBlack;
e.Brush.Style:=bsSolid;
e.rectangle(400, 250, 420, 350);
e.Pen.Color:=clGreen;
e.Brush.Color:=clGreen;
e.Brush.Style:=bsSolid;
e.Circle(400, 260, 30);
e.Circle(420, 260, 30);
e.Circle(390, 240, 30);
e.Circle(430, 240, 30);
e.Circle(410, 220, 30);
end;

procedure B1Click;
begin
  MainForm.Close;
end;
 
procedure B2Click;
begin
execute('hh.exe help.chm');
end;

BEGIN
read_file;
 
MainForm:=Form.Create (350,200,XX+120,YY);
MainForm.Caption:=' ';
 
p:=Panel.Create;
p.Width:=120;
p.Align:=alLeft;
 
B1:=Button.Create (p,0,YY-90,p.Width,40);
B1.Caption:='Закрыть программу';
B1.OnClick:=b1Click;
 
l:=TextLabel.Create(p,10,70,'Количество: ');
se1:=SpinEdit.Create(p,20,95,60,20);
se1.Min:=1;
se1.Max:=10;
se1.Value:=A2;
B2:=Button.Create (p,0,YY-125,p.Width,25);
B2.Caption:='Справка';
B2.OnClick:=B2Click;
 
e:=PaintBox.Create(p.width,0,screen.width,screen.height);
Draw;
 se1.OnChange:=Draw;
end.