Вычислить значения функции

{ TForm1 }
const b=3;
      xn=-3;
      xk=3;
      dx=0.5;
function f(b,x:double):double;
begin
f:=arctan(b*x)/sqrt(1+sqr(sin(x)))
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:=formatfloat('0.0',b);
Edit2.Text:=formatfloat('0.0',xn);
Edit3.Text:=formatfloat('0.0',xk);
Edit4.Text:=formatfloat('0.0',dx);
  with StringGrid1 do
   begin
     fixedrows:=1;
     fixedcols:=0;
     rowcount:=2;
     colcount:=3;
     cells[0,0]:='№';
     cells[1,0]:='X';
     cells[2,0]:='Y';
   end;
  with Chart1.Title do
   begin
    Visible:=true;
    Font.Size:=10;
    Font.Style:=[fsBold];
    Text.Text:='График функции y(b,x)=arctg(bx)/sqrt(1+sin^2(x))';
   end;
 Chart1LineSeries1.SeriesColor:=clRed;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var x:real;
    k:byte;
begin
k:=0;
x:=xn;
while x<=xk do
 begin
   inc(k);
   StringGrid1.cells[0,k]:=inttostr(k);
   StringGrid1.cells[1,k]:=formatfloat('0.00',x);
   StringGrid1.cells[2,k]:=formatfloat('0.000',f(b,x));
   if x<xk then StringGrid1.rowcount:=StringGrid1.rowcount+1;
   x:=x+dx;
 end;
x:=xn;
while x<=xk do
 begin
  Chart1LineSeries1.AddXY(x,f(b,x),'',0);
  x:=x+0.01;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
xn,xk,dx,b,f,x:real;
k:byte;
begin
b:=StrToFloat(Edit1.Text);
xn:=StrToFloat(Edit2.Text);
xk:=StrToFloat(Edit3.Text);
dx:=StrToFloat(Edit4.Text);
with StringGrid1 do
   begin
     fixedrows:=1;
     fixedcols:=0;
     rowcount:=2;
     colcount:=3;
     cells[0,0]:='№';
     cells[1,0]:='X';
     cells[2,0]:='Y';
   end;
  with Chart1.Title do
   begin
    Visible:=true;
    Font.Size:=10;
    Font.Style:=[fsBold];
    Text.Text:='График функции y(b,x)=arctg(bx)/sqrt(1+sin^2(x))';
   end;
 Chart1LineSeries1.SeriesColor:=clRed;
end;
Chart1LineSeries1 [0].Clear;
k:=0;
x:=xn;
while x<=xk do
 begin
f:=arctan(b*x)/sqrt(1+sqr(sin(x)))
   inc(k);
   StringGrid1.cells[0,k]:=inttostr(k);
   StringGrid1.cells[1,k]:=formatfloat('0.00',x);
   StringGrid1.cells[2,k]:=formatfloat('0.000',f(b,x));
   if x<xk then StringGrid1.rowcount:=StringGrid1.rowcount+1;
   x:=x+dx;
 end;
x:=xn;
while x<=xk do
 begin
  Chart1LineSeries1.AddXY(x,f(b,x),'',0);
  x:=x+0.01;
 end;
end;