Как создать и потом постоянно заполнять таблицу excel данными

[НугРоберт]

Здравствуйте вот мой код, что-то не получается открывать и записывать в excel таблицу, постоянно происходит перезапись исходного файла и отображается только одна строка. И такой вопрос, как сделать так чтобы при записи, происходило закрытие файла, т.е. чтобы программа продолжала записывать. И как дать название файлу в виде даты?
Мой код:

var
  F: integer;
  res: word;
K_1:string;
K_2:string;
I:String;
begin
 
 if FileExists('c:\doit') then
    res := Excel.OpenTemplate('c:\doit')
  else
    res := Excel.CreateTemplate;

  if res = 0
  begin
I=ReadValue("VirtualCanal5") //  VirtualCanal5- это переменная обрабатываемая в другой программе, увеличивается на единицу каждые 5 сек
K_1='A'+I;
K_2='B'+I;   
Excel.Cell[K_1] :=ReadValue('Virtual channel 5');
    Excel.Cell[K_2] := ReadValue('Random.Int2');
    Excel.Save('c:\doit');
    Excel.Close;
  end;
end.

[Slym]

Не проще эту таблицу открыть как базу данных через ADOConnection
http://yandex.ru/yandsearch?text=excel%20ADOConnection

[НугРоберт]

это просто SCADA система, и я произвожу запись каждого значения, хотелось бы реализовать при помощи excel