数据删除之后，插入求解(0分)

如何删除表1记录集的一条记录之后，就插入另一个和这个记录相同结构的表2里啊，
但是我的语句如，只可以删除，不可以再删除到表2里面，请教如何修改啊。
procedure TForm1.Button1Click(Sender: TObject);
var
sqlnum:string;／／这个是表1的自动编号来的
sqlid:string;
sqlname:string;
sqljob,sqlenjob:string;//这是变量部门和职务
sqlyong:string;//年份
sqldate:string;//月份
sqlmoney:string;//底薪
sqlhers,sqlsumday:string;//普通和节日加班记录
sql1,sql2:string;//事假和病假记录
sqlgoodmoney:string;//实发工资
begin
sqlnum:=adoquery2.Fields[0].Text ;
sqlid:=adoquery2.Fields[1].Text ;
sqlname:=adoquery2.Fields[2].Text;
sqljob:=adoquery2.Fields[3].Text ;
sqlenjob:=adoquery2.Fields[4].Text;
sqlyong:=adoquery2.Fields[5].Text ;
sqldate:=adoquery2.Fields[6].Text;
sqlmoney:=adoquery2.Fields[7].Text;
sqlhers:=adoquery2.Fields[8].Text;
sqlsumday:=adoquery2.Fields[9].Text;
sql1:=adoquery2.Fields[10].Text;
sql2:=adoquery2.Fields[11].Text;
sqlgoodmoney:=adoquery2.Fields[12].Text;


adoquery1.Delete ;
adoquery1.Close;
//ADOQUERY2.Open;
ADOQUERY2.Append;
adoquery2.Fields[0].Text :=sqlnum;
adoquery2.Fields[1].Text :=sqlid;
adoquery2.Fields[2].Text :=sqlname;
adoquery2.Fields[3].Text :=sqljob;
adoquery2.Fields[4].Text :=sqlenjob;
adoquery2.Fields[5].Text :=sqlyong;
adoquery2.Fields[6].Text :=sqldate;
adoquery2.Fields[7].Text :=sqlmoney;
adoquery2.Fields[8].Text :=sqlhers;
adoquery2.Fields[9].Text :=sqlsumday;
adoquery2.Fields[10].Text :=sql1;
adoquery2.Fields[11].Text :=sql2;
adoquery2.Fields[12].Text :=sqlgoodmoney;
adoquery2.Post;

各位我真的没分了，请大家做做好心帮忙解决上面的问题吧，
我的数据库为ACCESS啊，日后有分，
请各位留下姓名，日后定必相送了，谢谢各位了。