BatchMove 에서 Batchcopy를 이용하면 된다고 하더군요.
저는 안해봐서 그건 잘 몰르고, 그래서 하나를 만들었던적이 있습니다.

그게 되면 그걸로 쓰시고(편할테니), 안되면 아래 소스를 참고 하세요.

procedure TForm1.Button1Click(Sender: TObject);
var
   i,j : integer;
   f,p : string;
begin

     p := extractfilepath(label1.caption);
     f := extractfilename(label1.caption);

     with Table2 do begin
         Active := false;
         Databasename := p;
         Tablename := edit1.text;
     end;

     with Table1 do begin
         Active := false;
         Databasename := p;
         Tablename := f;
         Active := true;

         Table2.FieldDefs.clear;
         Table2.IndexDefs.clear;
         for i := 0 to fieldcount -1 do begin
                Table2.FieldDefs.add(fielddefs.Items[i].Name,
                                  fielddefs.Items[i].Datatype,
                                  fielddefs.Items[i].size,False);
         end;
         Table2.CreateTable;

         Table2.Active := True;
         First;
         j := 0;
         Progressbar1.Max := recordcount;
         while not EOF do begin
             Table2.Append;
             for i := 0 to fieldcount -1 do
                Table2.fields[i].value := fields[i].value;

             Table2.Post;
             Next;
             Inc(j);
             Progressbar1.Position := j;
         end;

         Table2.Active := False;
         Active := false;
     end;

end;
                    도움이 되시길 바랍니다.