Построение множества графиков

var
  Form1: TForm1;
 
implementation
uses Series;
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,n:integer;
    a:array of TLineSeries;
    c:TColor;
begin
randomize;
n:=StringGrid1.RowCount div 2;
setlength(a,n);
for i:=0 to n-1 do
for j:=0 to StringGrid1.ColCount-1 do
 begin
  StringGrid1.Cells[j,i]:=format('%.2f',[(j+i)/10]);
  case j mod 4 of
  0:StringGrid1.Cells[j,i+n]:=format('%.2f',[sin(i*j/10)]);
  1:StringGrid1.Cells[j,i+n]:=format('%.2f',[sqr(j*i/10)]);
  2:StringGrid1.Cells[j,i+n]:=format('%.2f',[ln(j*i/10+1)]);
  3:StringGrid1.Cells[j,i+n]:=format('%.2f',[cos(j*i/10)]);
  end;
 end;
for i:=0 to n-1 do
 begin
  a[i]:=TLineSeries.Create(Self);
  a[i].ParentChart:=Chart1;
  a[i].Dark3D:=False;
  for j:=0 to StringGrid1.ColCount-1 do
   begin
    case i mod 4 of
    0:c:=clRed;
    1:c:=clBlue;
    2:c:=clGreen;
    3:c:=clPurple;
    end;
    a[i].AddXY(strtofloat(StringGrid1.Cells[j,i]),strtofloat(StringGrid1.Cells[j,i+n]),
             '',c);
   end;
 end;
end;

StringGrid1.Cells[j,i+n]:=

var
i,j,n: Integer;
x,y:real;
begin
for i:=0 to n-1 do
for j:=0 to StringGrid1.ColCount-1 do
Series1.AddXY(x,y);
StringGrid1.Cells[j,0]:=FloatToStr(x);
StringGrid1.Cells[j,1]:=FloatToStr(y);
end;

x:=Stringgrid1.Cells(j,i);
y:=Stringgrid1.Cells(j,i+n);//n расстояние по вертикали между строками