Ошибка при создании динамической серии графиков

ser[i].Create(Form1.Chart1);

unit UMain;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Math, VclTee.TeeGDIPlus,
  VCLTee.TeEngine, VCLTee.Series, Vcl.StdCtrls, Vcl.ExtCtrls, VCLTee.TeeProcs,
  VCLTee.Chart, Vcl.Grids;
 
type
  TForm1 = class(TForm)
    Chart1: TChart;
    Drow: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    procedure DrowClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a1,b1,a2,b2:Real;//коэффициенты для y1 и y2
  sum_exp:array [0..4] of Real;//сумма значений экспонент
  y1,y2:array [0..4] of Real;//линейные зависимости
  x:Integer;//входные данные
  exp_one,exp_second:array [0..4] of Real;//экспоненты
  attitude_one,attitude_second:array [0..4] of Real;//отношения каждой exp к сумме
  procedure circle; //процедура цикла for
  implementation
 
uses uImpDataI,uDataSetObj;
 
{$R *.dfm}
 
procedure TForm1.DrowClick(Sender: TObject);
begin
 circle;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
DS:TDataSet;
begin
DS:=TDataSet.Create;
uImpDataI.ImportData(DS);
//ShowMessage(DS);
end;
 
procedure circle;
var
i,j:Integer;
ser: array of TLineSeries;
c:TColor;
begin
a1:=2;
b1:=1;
a2:=0.3;
b2:=0.1;
x:=0;
SetLength(ser,2);
{Form1.Series1.Clear;
Form1.Series2.Clear;}
Form1.Edit1.Text:=FloatToStr(a1);
Form1.Edit2.Text:=FloatToStr(b1);
Form1.Edit3.Text:=FloatToStr(a2);
Form1.Edit4.Text:=FloatToStr(b2);
for i := 0 to 4 do
 begin
  y1[i]:=a1*x+b1; //линейная зависимость для первого примера
  y2[i]:=a2*x+b2; //линейная зависимость для второго примера
 
  exp_one[i]:=Exp(y1[i]); //нахожу экспоненты
  exp_second[i]:=Exp(y2[i]);
 
  sum_exp[i]:=exp_one[i]+exp_second[i];//сумма экспонент
 
  attitude_one[i]:=exp_one[i]/sum_exp[i];//делю пеовую экспоненту на сумму
 
  attitude_second[i]:=exp_second[i]/sum_exp[i];//делю вторую экспоненту на сумму
 
  //Form1.Series1.AddXY({x,}y1[i],exp_one[i],floattostr(y1[i]),clRed);
  //Form1.Series2.AddXY({x,}y2[i],exp_second[i],floattostr(y2[i]),clGreen);
 
  Form1.StringGrid1.Cells[0,i]:=FloatToStr(attitude_one[i]);
  Form1.StringGrid2.Cells[0,i]:=FloatToStr(attitude_second[i]);
  inc(x);
 end;
 
 for i:=0 to high(ser)-1 do
   begin
     ser[i].Create(Form1.Chart1);
     ser[i].ParentChart:=Form1.Chart1;
     c:=RGB(random(256),random(256),random(256));
      for j:=0 to 4 do
       begin
        ser[0].AddXY(y1[j],exp_one[j],'',c);
        ser[1].AddXY(y2[j],exp_second[j],'',c);
       end;
 
   end;
 
end;

SomeObject:=TSomObject.Create();