Halcyon Повторение получателя поля...

[moderntik]

Экспортирую данные из DBF в Access, пользуюсь Halcyon. При выгрузке выдает ошибку

Повторение получателя 'FIO'

. (FIO - это поле).

Собственно сам код:

procedure TForm2.Button5Click(Sender: TObject);
var
  i: Integer;
  F: TFieldDef;
  cs,cs1,kd,f1: string;

begin

   while not Halcyondataset1.Eof do
   begin
 for i := 0 to HalcyonDataset1.FieldDefs.Count-1 do
  //f1:='';
    begin

         F := HalcyonDataset1.FieldDefs.Items[i];
         cs:=trim(HalcyonDataset1.FieldByName(F.Name).AsString);
         if i=HalcyonDataset1.FieldDefs.Count-1 then
            begin
              f1:=f1+F.Name;
              if cs='' then cs:='null' else cs:=''''+cs+'''';
              cs1:=cs1+cs;
            end
         else
            begin
              if cs='' then cs:='null' else cs:=''''+cs+'''';
              if cs='0' then cs:='0';
              f1:=f1+F.Name+',';
              cs1:=cs1+cs+',';
            end;
    end;
             kd:='INSERT INTO  v21098('+f1+') VALUES ('+cs1+')';
              AdoQuery1.Active:=false;
              AdoQuery1.SQL.Clear;
              AdoQuery1.SQL.Add(kd);
              AdoQuery1.ExecSQL;

            memo1.Lines.Add(cs1);
            memo1.Lines.Add(f1);
       HalcyonDataset1.Next;
     end;
end;