DbImport hängt sich auf

[blondervolker]

Hallo,
versuche aus meiner Access DB nach Absolut DB, vier Felder mit ca. 17000 Datensätzen zu importieren.(Erstversuch)
Aber bei ca.1400 Datensätzen hängt sich die Exe auf,(keine Rückmeldung).

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
//Übernahme Import Accdb Anfang
  ADOTable1.First;
  while not ADOTable1.Eof do begin
   AbsTable1.Edit;
    AbsTable1.Insert;
     AbsTable1.FieldByName('Preis').AsString := ADOTable1.FieldByName('Preis').AsString;
      AbsTable1.FieldByName('DEU').AsString :=  ADOTable1.FieldByName('DEU').AsString;
       AbsTable1.FieldByName('ENG').AsString :=  ADOTable1.FieldByName('ENG').AsString;
        AbsTable1.FieldByName('ITA').AsString :=  ADOTable1.FieldByName('ITA').AsString;
          ADOTable1.Next;
            AbsTable1.Post;
//Übernahme Import in Absolute DB Ende
end;
end;