Tømme paradox database

Jeg ønsker at kopiere indholdet fra table2 til table1 og derefter at slette indholdet i table2. Jeg anvender følgende kode, men får en fejl når table2 skal tømmes.

procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.BatchMove(Table2, batAppend);
Table2.Active := False;
Table2.EmptyTable;
Table2.Active := True;
end;

Kopieringen fungerer fint, det er "EmtyTable" der giver problemer. Begge tables vises i hver deres DBGrid i programmet.

Fejlen jeg får er "Table is busy". Men hvad skal jeg gøre udover at sætte Active til false?