уравнение. второй график.

[pionerka]

И снова здравствуйте. Нужно построить ещё один график для уравнения(см.код). Причем все два уравнения должны уживаться в одной задаче. Второй день делаю и ничего не получается. Посмотрите и помогите, чем сможите.Заранее спасибо.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Series;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    GRAFIK: TChart;
    Edit1: TEdit;
    Label1: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Label2: TLabel;
    Series1: TFastLineSeries;
    Series2: TLineSeries;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
c0,k, t,dt,e,c,dc,k0,tem,temv,h,d,a,r,tempo:real;
 i:integer;
 
 
 
 
begin
k0:=0.001; c:=2; temv:=289 ; tem:=4;
e:=0.01; h:=0.003; d:=0.02 ;{a:=1 ;} r:=8.3;
t:=0; dt:=10; c0:=4.4; tempo:=6;
{i:=1;}
while (c>=0.01)and(tem<=temv) do
begin
 k:=k0*exp(-e/(r*tem));
 c:=c-k*c*dt;
  tem:=tem+(c0-c)*h;
 //tempo:=tempo-(c0-c)*h;//вот для этого уравнения нужен график
series1.AddXY(t,c,'',clred);
//series2.AddXY(tempo,c,'',clgreen);
 t:=t+dt;
 end;
 Edit1.Text:=floattostr(tem);
 Edit3.Text:=floattostr(t);
 
 
 while (c>=0.01)and(tem<=temv) do// это попытки постройки.Что не так?
begin
 k:=k0*exp(-e/(r*tem));
 c:=c-k*c*dt;
  tempo:=tempo-(c0-c)*h;
//series1.AddXY(t,c,'',clred);
series2.AddXY(tempo,c,'',clblue);
 t:=t+dt;
 end;
 end;
end.

[ATTACH]задача в архиве[/ATTACH]