[doctordradd]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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;