Что то не так с заполнением таблицы

procedure union(s:string);
var c,i: integer;
begin
with dm2.DataModule2 do
 
    begin
      //подключаем базу данных
      ADOConnection2.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; '+
                              'Persist Security Info=False; Data Source='+
   ExtractFilePath(Application.ExeName)+s;
    //включаем элементы
      datamodule2.ADOConnection1.Connected:=true;
      datamodule2.ADOConnection2.Connected:=true;
      base1lich.Active:=true;
      base1rab.Active:=true;
      base2lich.Active:=true;
      base2rab.Active:=true;
      base1tel.Active:=true;
      base2tel.Active:=true;
      base1adres.Active:=true;
      base2adres.Active:=true;
      //выставляем первые записи
      base2lich.first;
      base2rab.First;
      base2adres.First;
      base2tel.First;
      i:=0;
      while i<=base2lich.RecordCount do
        begin
          //считываем ключ нового элемента
          base1lich.Last;
          c:=base1lich.fieldbyname('ключ').AsInteger;
          //соединяем таблицу личные данные
          base1lich.Append;
          base1lich.FieldByName('фамилия').AsString:= base2lich.FieldByName('фамилия').AsString;
          base1lich.FieldByName('имя').AsString:= base2lich.FieldByName('имя').AsString;
          base1lich.FieldByName('отчество').AsString:= base2lich.FieldByName('отчество').AsString;
          base1lich.FieldByName('пол').AsString:= base2lich.FieldByName('пол').AsString;
          base1lich.FieldByName('сем_полож').AsBoolean:= base2lich.FieldByName('сем_полож').AsBoolean;
          base1lich.FieldByName('детей').AsString:= base2lich.FieldByName('детей').AsString;
          base1lich.FieldByName('дата_рожд').AsString:= base2lich.FieldByName('дата_рожд').AsString;
          base1lich.FieldByName('дата_пост').AsString:= base2lich.FieldByName('дата_пост').AsString;
          base1lich.FieldByName('стаж').AsString:= base2lich.FieldByName('стаж').AsString;
          base1lich.FieldByName('образование').AsString:= base2lich.FieldByName('образование').AsString;
          base1lich.FieldByName('военнообязанный').AsBoolean:= base2lich.FieldByName('военнообязанный').AsBoolean;
          base1lich.Post;
          base2lich.Next;
          //соединяем таблицу место работы
          base1rab.Append;
          base1rab.FieldByName('сотрудник').AsInteger:=c+1;
          base1rab.FieldByName('отдел').AsString:=base2rab.FieldByName('отдел').AsString;
          base1rab.FieldByName('УК').AsString:=base2rab.FieldByName('УК').AsString;
          base1rab.FieldByName('телефон').AsString:=base2rab.FieldByName('телефон').AsString;
          base1rab.FieldByName('должность').AsString:=base2rab.FieldByName('должность').AsString;
          base1rab.FieldByName('адрес').AsString:=base2rab.FieldByName('адрес').AsString;
          base1rab.Post;
          base2rab.Next;
          //соединяем таблицу адрес
          base1adres.Append;
          base1adres.FieldByName('сотрудник').AsInteger:=c+1;
          base1adres.FieldByName('страна').AsString:= base2adres.FieldByName('страна').AsString;
          base1adres.FieldByName('город').AsString:= base2adres.FieldByName('город').AsString;
          base1adres.FieldByName('дом_адрес').AsString:= base2adres.FieldByName('дом_адрес').AsString;
          base1adres.Post;
          base2adres.Next;
          //соединяем таблицу телефон
          base1tel.Append;
          base1tel.FieldByName('сотрудник').AsInteger:=c+1;
          base1tel.FieldByName('телефон').AsString:=base2tel.FieldByName('телефон').AsString;
          base1tel.FieldByName('примечание').AsString:=base2tel.FieldByName('примечание').AsString;
          base1tel.Post;
          base2tel.Next;
          //обновляем счетчик
          i:=i+1;
        end;
     end;
end;