is not a valid integer value

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  x1,x2:integer; //начальные точки
  h: integer;//шаг
  f1: array of real;
  f2: array of real;
  k1,k2: integer; // индексы массива
  n: integer;
  nx1,nx2: array[1..10] of real; //равноотстоящие друг от друга х
  min1: real; // минимальная функция
   Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
     Edit3: TEdit;
     Edit4: TEdit;
 
  implementation
 
{$R *.dfm}
 
function funct(xl,x2:real):real; begin result:=100*sqr(x2-xl*xl)+sqr(1-x1);//Функция согласно варианту КП
 
end;
 
 
 
 
var
a1, a2, b1, b2: real;//начальный интервал локализации минимума
i, j, kol: integer;
 
 
begin
 
kol:= StrToInt(Edit1.Text);
h:=1;
x1:=-2;
x2:=1;
n:=1;
//Установка направления убывания целевой функции
 
SetLength(f1, 100);
for i:=0 to 1 do
begin
x1:=x1+h;
f1[i]:=funct(x1,x2);
 
end;
 
if f1[0]<f1[1] then
 repeat
 
x1:=x1-h;
n:=n+1;
f1[n]:=funct(x1,x2);
 
//
 
label1.Caption:=label1.Caption+floattostr(f1[n])+#13;
 
a1:=x1;
b1:=x1+2*h;
 
until f1[n]>f1[n-1]
 
else
 
repeat
 
x1:=x1+h;
n:=n+1;
f1[n]:=funct(x1, x2);
 
 
//
 
 
Label1.Caption:=Label1.Caption+floattostr(f1[n])+#13;
 
a1:=x1-2*h;
b1:=x1;
until f1[n]>f1[n-1];
SetLength(f1,n);
 
Edit2.Text:= '['+floattostr(a1)+';'+floattostr(b1)+']';
 
 
//xl равноотстоящие друг от друга
 
for i:=1 to kol do
 
begin
 
nx1[i]:=a1+i*((b1-a1)/(kol+1));
end; //x2 h:=l;
x1:=round((b1-a1)/2); x2:=0; n:=1;
 
 
 
//Установка направления убывания целевой функции
 
SetLength(f2, 100);
 
for i:=0 to 1 do
 
begin
 
x2:=x2+h;
 
f2[i]:=funct(x1,x2);
 
end;
 
if f2[0]<f2[1] then
 
 
repeat
 
n:=n+1;
x2:=x2-h;       
f2[n]:=funct(x1,x2);
a2:=x2; 
b2:=x2+2*h;     
until f2[n]>f2[n-1]
 
 
else
 
repeat
 
n:=n+1;
x2:=x2+h;       
f2[n]:=funct(x1,x2);
a2:=x2-2*h;     
b2:=x2;
until f2[n]>f2[n-1];
SetLength(f2, n);
Edit3.text:= '['+floattostr(a2)+';'+floattostr(b2)+']';
 
 
//x2    равноотстоящие    друг    от друга
 
for i:=1 to kol do
 
begin
 
nx2[i]:=a2+i*((b2-a2)/(kol+1));
 
end;
 
// min для x
 
min1:=funct(nx1[1],nx2[1]);
 
for i:=1 to kol do
for j:=1 to kol do
 
begin
 
if (min1>funct(nx1[i],nx2[j])) then
 
 
begin
 
min1:=funct(nx1[i],nx2[j]);
k1:= i;
k2:= j;
end;
end;
 
begin
Edit4.Text:= 'x1 min ='+floattostr(nx1[k1])+' '+ 'x2min=' + floattostr(nx2[k2])+'  '+'y min='+floattostr(min1);
 
end;
 
end.

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit; // где методы и события типа Button1Click и тп
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  x1,x2:integer; 
  h: integer;
  f1: array of real;
  f2: array of real;
  k1,k2: integer; 
  n: integer;
  nx1,nx2: array[1..10] of real; 
  min1: real; 
   Edit1: TEdit; // ???? что это такое?
    Label1: TLabel;
    Edit2: TEdit;
     Edit3: TEdit;
     Edit4: TEdit;