Перестал работать чарт в дельфи

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, AxCtrls, OleCtrls,
  VCF1, OleCtnrs, jpeg, Math, StdCtrls;
 
type
  TForm1 = class(TForm)
    olcntnr1: TOleContainer;
    F1Book1: TF1Book;
    cht1: TChart;
    lnsrsSeries1: TLineSeries;
    lnsrsSeries2: TLineSeries;
    img1: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 const
a=0;
b=pi;
n=6;
var
  Form1: TForm1;
    i,j,k:integer;
  x,s,p:real;
 
implementation
function f(x:real):real;
begin
result:=Abs(Sin(x))-abs(Cos(x));
end;
 
 
function f1(x2:real) : real;
var i,j:integer;
begin
s:=0;
for j:=0 to n-1 do
begin
p:=1;
for i:=0 to n do
begin
if j<>i then
p:=p*(x2-i*((b-a)/n))/(j*((b-a)/n)-i*((b-a)/n));
end;
s:=s+f(j*(b-a)/n)*p;
end;
result:=s;
end;
 
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
for k:=0 to n-1 do
begin
x:=a+(k+0.5)*((b-a)/n);
f1book1.TextRC[1,1]:='x';
f1book1.TextRC[1,2]:='y';
F1book1.NumberRC[k+2,1]:=x;
F1book1.NumberRC[k+2,2]:=f(x);
end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
for k:=0 to n-1 do
begin
x:=a+((b-a)/n)*(k+0.5);
f1book1.TextRC[1,4]:='x';
f1book1.TextRC[1,5]:='y';
f1book1.TextRC[1,6]:='P(n)';
F1book1.NumberRC[k+2,4]:=x;
F1book1.NumberRC[k+2,5]:=f(x);
F1book1.NumberRC[k+2,6]:=f1(x);
end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 x:=-1;
while x<=3 do
begin
x:=x+0.5;
insrsseries1.AddXY(x,f(x))
end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
 x:=-1;
while x<=3 do
begin
x:=x+0.5;
intssseries2.AddXY(x,f1(x))
end;
end;
 
end.