Построить график двух функций

var
  Form1: TForm1;
const n=20;
implementation
 
{$R *.dfm}
function f1(x:double):double;
begin
f1:=x*x+3*x+2
end;
function f2(x:double):double;
begin
f2:=x*x*x+2*x*x+3*x+1
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
 begin
  colCount:=4;
  rowcount:=n+1;
  fixedcols:=1;
  fixedrows:=1;
  cells[0,0]:='№';
  cells[1,0]:='X';
  cells[2,0]:='F1';
  cells[3,0]:='F2';
  defaultcolwidth:=45;
 end;
chart1.Title.Text.Text:='Графики функций';
series1.Title:='F1=x^2+3x+2';
series2.Title:='F2=x^3+2x^2+3x+1';
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    a,b,x,dx,y:double;
begin
a:=-5;
b:=5;
dx:=(b-a)/(n-1);
x:=a;
for i:=1 to n do
with StringGrid1 do
 begin
  cells[0,i]:=inttostr(i);
  cells[1,i]:=format('%.2f',[x]);
  cells[2,i]:=format('%.3f',[f1(x)]);
  cells[3,i]:=format('%.3f',[f2(x)]);
  x:=x+dx;
 end;
x:=a;
while x<=b do
 begin
  series1.AddXY(x,f1(x),'',clRed);
  series2.AddXY(x,f2(x),'',clBlue);
  x:=x+0.1;
 end; 
end;