добавить в ячейку Excel данные и сохранить прежние

[voverrr]

Здравствуйте.
Задача в том, чтобы к существующему списку, хранящемуся в экселе прибавлять строки с данными.

код:

procedure TForm1.Button5Click(Sender: TObject);
var
XL:variant;
i: integer;

begin
i:=1;
	XL:=CreateOleobject('Excel.Application');                 ///открывает эксель
	XL.DisplayAlerts:= false;                   //отключаем предупреждения
	XL.Workbooks.open('C:\Program Files\hen\ban_list.xls');
	XL.Workbooks.Add;
	XL.visible := False;
	while XL.cells[i,1].Text<>'' do   ///определяет количество заполненных строк, чтобы вставить данные в первую незаполненную
	begin
	 i:=i+1;
	end;
	xl.cells[5,8].value:='12345';     ///для примера в постороннюю ячейку хочу вставить буквы
	XL.ActiveWorkbook.saveas('C:\Program Files\hen\ban_core.xls');///сохраняю пока что под другим именем, чтобы первоначальный список не ломать.
	XL.quit;
	end;

так вот он данные-то в ячейку заносит, но те, что были до этого - не оставляет. Как сделать, чтобы он и прежние сохранял и новые добавлял?

[voverrr]

всё.разобрался сам методом научного тыка:

procedure TForm1.Button5Click(Sender: TObject);
var
XL:variant;
i: integer;

begin
i:=1;
	XL:=CreateOleobject('Excel.Application');
	XL.DisplayAlerts:= false;
	XL.Workbooks.open('C:\Program Files\hen\ban_list.xls');
	//XL.Workbook.Add;  //не создавать новый workbook
	XL.visible := False;
	while XL.cells[i,1].Text<>'' do
	begin
	 i:=i+1;
	end;
	XL.Cells[i, 1]:='Привет!';// добавляет в конец списка
	XL.ActiveWorkbook.saveas('C:\Program Files\hen\ban_list.xls');
	XL.quit;
	end;