[doctordradd]

Открывается файл экселя, записывается временно 1 колонка, при закрытии программы записанные данные исчезают.
Записываются только в готовую строку, т.е. в программу введены вручную данные, в эти строки вписываются данные с экселя, в пустые же - нет...
Подскажите, пожалуйста, где ошибка.

Код:

var ws,xl:variant;
    i,maxrow:integer;
    col,fst:integer;
begin
  fst:=7;
  xl:=createoleobject('Excel.Application');
    try
      maxrow:=0;
      xl.visible:=true;
      XL.WorkBooks.open('PRESENTES');
      ws := XL.ActiveWorkBook.ActiveSheet;
      ws.Range['A1'].NumberFormat:='0';

       for i:=fst+1 to Visitas.Items.Count+fst do begin
         col:=1;
         Visitas.Items[i-fst-1].SubItems[0]:= ws.Range['A'+inttostr(fst)].Value;
         Visitas.Items[i-fst-1].SubItems[1] := ws.Range['B'+inttostr(fst)].Value;
         maxrow:=i;