При экспорте базы в Excel выводит везде первое значение

[Aleksandr]

При экспорте базы в Excel везде выводит первое значение. Вот мой код

      //Заполнение
  for i:=fst+1 to AdoTable1.RecordCount+fst do begin
          col:=0;
      AdoTable1.First;
    if OptionForm.cb1.Checked then begin
       inc(col);
       ws.Range[Chr(Ord('A')+col)+inttostr(i)].Value:= ADOTable1.FieldByName('ФИО').AsString;
    end;
   if OptionForm.cb2.Checked then begin
            inc(col);
       ws.Range[Chr(Ord('A')+col)+inttostr(i)].Value:=ADOTable1.FieldByName('Адрес').AsString;
    end;
    if OptionForm.cb3.Checked then begin
            inc(col);
       ws.Range[Chr(Ord('A')+col)+inttostr(i)].Value:=ADOTable1.FieldByName('Организация').AsString;
    end;
    //и т.д.
       maxrow:=i;
    inc(col);
  ADOTable1.Next;
  end;
    
end;

[OlegVE]

Здравствуйте
А если так

Сообщение от Aleksandr

При экспорте базы в Excel везде выводит первое значение. Вот мой код
[CODE]
//Заполнение
AdoTable1.First;
for i:=fst+1 to AdoTable1.RecordCount+fst do begin
col:=0;
// AdoTable1.First;
if OptionForm.cb1.Checked then begin
...[CODE]

До свидания