表中全部记录复制到另一个表(50分)

请问各位前辈， 怎样用Ttable实现表中所有记录复制到另一表（结构相同），数据库为
PARADOX，

1、最简单的方法是用文件复制。
2、用BatchMove。
3、用Insert Into [表1] select * from [表2]

procedure TForm1.Button1Click(Sender: TObject);
var
FieldListName:TStringList;
i:Integer;
begin
FieldListName:=TStringList.Create;
with Table1 do begin
Close;
DatabaseName:='路径';
TableName:='文件名';
Open;
GetFieldNames(FieldListName);
end;
with Table2 do begin
Close;
DatabaseName:='路径';
TableName:='文件名';
Open;
while not Table1.EOF do begin
Append;
for i:=0 to FieldListName.Count-1 do begin
FindField(FieldListName).AsString:=Table1.FindField(FieldListName).AsString;
end;
Post;
Table1.Next;
end;
end;
Table1.Close;
Table2.Close;
end;

用batchmove即可！

BatchMove还得对应字段
用SQL语句吧，避开AUTOINC的字段就行了

query1.sql.text:='insert into table1 select * from table2';
query1.exesql;

多人接受答案了。