Задача на дельфи

[Aizada]

Привет! Я решаю задачу на дельфи. Но показывает что ошибка. Помогите мне, в чем проблема?

PHP код:

procedure TForm2.FormCreate(Sender: TObject);
var i:integer;
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
if nst>n then nst:=trunc(n/2);
str(Nst,s);
edit1.Text:=s;
if nac>nst then nac:=4;
str(Nac,s);
edit2.Text:=s;
if (neps<1)or(neps>1000)then neps:=10;
str(Neps,s);
edit3.Text:=s;
if(nrp<10)or(nrp>99)then nrp:=80;
str(Nrp,s);
edit4.Text:=s;
if (m>mM)or(m<1)then m:=5;
Form2.Memo1.Lines.Clear;
for i:=1 to nac do
Form2.Memo1.Lines[i-1]:=sw[i]+#13#10;
end;//Form2.create;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
s:=edit1.Text;
nst:=abs(StrToInt(s));
if (nst>n)or(nst<2) then nst:=trunc(n/2);
s:=edit2.Text;
nac:=StrToInt(s);
s:=edit3.Text;
neps:=abs(StrToInt(s));
if (neps<1)or(neps>1000)then neps:=10;
s:=edit4.Text;
nrp:=StrToInt(s);
if(nrp<10)or(nrp>99)then nrp:=80;
s:=edit5.Text;
m:=StrToInt(s);
if (m>mM)or(m<1)then m:=5;
Form2.close;
end;//Ñîõðàíèòü è âûéòè (êîíåö)
end;


procedure TForm2.Button2Click(Sender: TObject);
begin //Çàêðûòü ôîðìó
Form2.close;
end;
end;

procedure TForm2.FormResize(Sender: TObject);
begin
Button2.Top:=Form2.ClientHeight-Button2.Height-8;
Button1.Top:=Form2.ClientHeight-Button2.Height*2-16;
end;
end;

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13then
begin
s:=edit1.Text;
nst:=StrToInt(s);
if nst>n then nst:=trunc(n/2);
end;
if not(Key in [#8,'0'..'9'])then
Key:=#0;
end;
end;

procedure TForm2.Edit2Change(Sender: TObject);
begin
if key=#13then
begin
s:=edit2.Text;
nac:=StrToInt(s);
if nac>nst then nac:=4;
end;
if not(Key in [#8,'0'..'9'])then
Key:=#0;
end;
end;

procedure TForm2.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13then
begin
s:=edit3.Text;
Neps:=StrToInt(s);
if (neps<1)or(neps>1000)then neps:=10;
end;
if not(Key in [#8,'0'..'9'])then
Key:=#0;
end;
end;

procedure TForm2.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13then
begin
s:=edit4.Text;
nrp:=StrToInt(s);
if(nrp<10)or(nrp>99)then nrp:=80;
end;
if not(Key in [#8,'0'..'9'])then
Key:=#0;
end;
end;

procedure TForm2.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13then
begin
s:=edit5.Text;
m:=StrToInt(s);
if (m>mM)or(m<1)then m:=5;
end;
if not(Key in [#8,'0'..'9'])then
Key:=#0;
end;
end;

procedure TForm2.FormPaint(Sender: TObject);
var i:integer;
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
if nst>n then nst:=trunc(n/2);
str(Nst,s);
edit1.Text:=s;
str(Nac,s);
edit2.Text:=s;
if (neps<1)or(neps>1000)then neps:=10;
str(Neps,s);
edit3.Text:=s;
if(nrp<10)or(nrp>99)then nrp:=80;
str(Nrp,s);
edit4.Text:=s;
if(m<1)or(m>mM)then m:=5;
str(m,s);
edit5.Text:=s;
Form2.Memo1.Lines.Clear;
Form2.Memo1.Lines[0]:='Âåñîâûå êîýôèöèåíòû ïðè ïðîãíîçèðîâàííèè íà 1 øàã'+#13#10;
for i:=1 to nac do
begin
str(w[i]:6:5,sw[i]);
Form2.Memo1.Lines[i]:=sw[i]+#13#10;
end;
Form2.Memo1.Lines[nac+1]: =' Âåñîâûå êîýôèöèåíòû ïðè ïðîãíîçèðîâàííèè íà 3 øàãa'+#13#10;
for i:=1 to nac do
begin
str(w3[i]:6:5,sw[i]);
Form2.Memo1.Lines[nac+i+1]:=sw[i]+#13#10;
end;
//Form2.Memo1.Lines[nac+1]:=form1.nnit+#13#10;
end;
end.