Сложный график в Delphi 7

[Николай ПН]

Вот такой код есть:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Memo1: TMemo;
    Chart1: TChart;
    Series1: TLineSeries;
    procedure GetAllFiles(mask: string);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.GetAllFiles(mask: string);
var
  search: TSearchRec;
  directory: string;
    F: textfile;
  A,S,D,H,G,N,k,s_new: real;
  st: string;
begin
directory:=ExtractFilePath(mask);
  if FindFirst(mask, faAnyFile, search)=0 then
    begin
      repeat
        Form1.ListBox1.Items.Add(directory+search.name);
//****************************************

  assignfile(F, mask);
  reset(F);
    while not EOF(f) do
    begin
      readln(f,st);
      read(F,A,S,D,H,G,N);
      //memo1.Lines.Add(floattostr(S));
      if g<>0 then
      series1.AddXY(s,ln(g)*0.43753);
    end;
  closeFile(F);
      Until FindNext(search)<>0;
    end;
  if FindFirst(Directory+'*.*', faDirectory,search)=0 then
    begin
      repeat
        if((search.Attr and faDirectory)=faDirectory) and(search.name[1]<>'.') then
        GetAllFiles(Directory+search.name+'\'+ExtractFileName(mask));
      until FindNext(search)<>0;
      FindClose(search);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  directory: string;
  mask: string;
begin
  Listbox1.Items.Clear;
  directory:='D:\Delphi\Vakuum\';
  mask:='TPG300_64_5F4.txt';
  GetAllFiles(Directory+mask);
end;

end.

Если вкратце описать что данная программа делает. Она пробегает все файлы директории directory выводит полный путь к файлу в memo и рисует график из файла.
Сам файл выглядит так.

11		4.917		0		0		2.9E+2		0
12		5.35		0		0		7.1E+0		0
13		5.767		0		0		2.8E+0		0
14		6.2		0		0		2.1E+0		0
15		6.617		0		0		1.9E+0		0
16		7.05		0		0		1.7E+0		0
17		7.467		0		0		1.6E+0		0
18		7.867		0		0		1.5E+0		0
19		8.317		0		0		1.4E+0		0
20		8.717		0		0		1.4E+0		0
21		9.167		0		0		1.3E+0		0
22		9.583		0		0		1.3E+0		0
23		10.017		0		0		1.3E+0		0
24		10.433		0		0		1.2E+0		0
25		10.867		0		0		1.2E+0		0
26		11.283		0		0		1.2E+0		0
27		11.717		0		0		1.2E+0		0
28		12.133		0		0		1.2E+0		0
29		12.567		0		0		1.2E+0		0
30		12.983		0		0		1.1E+0		0
31		13.417		0		0		1.1E+0		0
32		13.833		0		0		1.1E+0		0

Вопрос заключается вот в чем. Так как график я рисую по У значения 4 столбика. А по Х значения второго столбика.
А как сделать чтобы если несколько файлов, то чтобы они по очереди на 1 график выводились и при этом значения из 2 столбика второго и последующих файлов прибавлялись к последнему значению предыдущего файла.


К примеру в данном файле последнее значение во 2 столбике - 13,833. А в следующем файле первое число 2 столбика 0,589. А на графике должна продолжится линия и следующее значение после 13,833 на оси Х должно быть 14,422.

P.S. Я график вывожу в Tchart