График на Delphi 7

[Maik2013]

Добрый день Всем!!
Помогите пожалуйста.
Как можно добавит график второй уравнения

Используется синтаксис Delphi

procedure TForm1.Button2Click(Sender: TObject);
var al2F,kF,t1F,LF,aF,F1,F2,fiF,a1F,a2F,a3F,a4F:real;
   et,tet: array  OF array of REAL;
    I,J:INTEGER;
begin
//SHOWMESSAGE('H='+FLOATTOSTR(H));
//SHOWMESSAGE('T='+FLOATTOSTR(T));
//SHOWMESSAGE('L='+FLOATTOSTR(L));
  al2F:=AL2;
  a1F:=a1;
  a2F:=a2;
  a3F:=a3;
  a4F:=a4;
  fiF:=fi;
  kF:=k;
  t1F:=t1;
  LF:=L;
  aF:=a;
  SetLength(ET,N+1,m+1);
  for i:=0 to N do
  et[i,0]:=1;
  for j:=0 to m do
  et[0,j]:=0;
  for j:=0 to m do
  et[n,j]:=1;
  MEMO1.Lines.Clear;
  for i:=1 to n-1 do
    for j:=0 to m-1 do
    begin
      F1:=exp(-(E)/(R*(T0+TET[I,J]*(Tgor-T0))));
      tet[i,j+1]:=tet[i,j]+ t*(a2*(tet[i+1,j]-2*tet[i,j]+tet[i-1,j])/(h*h)-
      a1*(tet[i+1,j]-tet[i,j])/(h)+a3*ET[i,j]*F1);
      ET[i,j+1]:=ET[i,j]+t*(a4*(ET[i+1,j]-ET[i,j])/(h)-k0*t1*ET[i,j]*F1);
      FORM2.Chart1.Series[0].Add(TET[I,J+1],'',CLRED); // Вот это график первой уравнения тут как можно добавит второй уравнения
    end;
 FORM2.ShowModal;
END;
end.