Часть данных не копируется -AppendRecord

[sergey113]

Выполняю копирование данных из одной таблицы в другую. Использую код который привожу ниже. Почему-то при первом цикле перенеслось 592 строки, но перенеслось не все...При втором цикле добавилось еще 271 строка, но опять перенеслось не все..
ПОчему так происходит ? Метод AppendRecord не успевает отработать ?

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOTable1.First;
  for h:=1 to ADOTable1.RecordCount do
  begin
        //speed:=ADOTable1.FieldByName('Knomber').Value ;
        //speed2:=ADOTable1.FieldByName('data_wyd').Value ;
        //ADOTable1.First;
              //for k:=1 to ADOTable1.RecordCount do
              //begin
              //ShowMessage('перед проверкой условия'+ADOTable1.FieldByName('Knomber').Value + ' ' + speed);
                  if  ADOTable1.FieldByName('wydana').Value = 'Нет' then
                  begin
                  ADOTable2.AppendRecord([nil,ADOTable1.FieldByName('fio'),ADOTable1.FieldByName('OtdUpr'),ADOTable1.FieldByName('otdel'),
ADOTable1.FieldByName('dolg'),ADOTable1.FieldByName('Knomber'),ADOTable1.FieldByName('data_wyd'),
ADOTable1.FieldByName('data_sda'),ADOTable1.FieldByName('wydana'), nil]);
                  ADOTable1.Delete;
                  end;
  ADOTable1.Next;
  end;
end;

[asmodey1]

Во-первых, подправьте пост - добавьте пробелы после запятых в длинную строку - невозможно же читать !
Во-вторых - если делаете удаление, не делайте ADOTable1.Next... Вы же перескакиваете через запись !

[sergey113]

Извените за неудобства. Поправил пост
Спасибо за помощь.