菜鸟问题请高手只指点一下，一个删除记录的时候同时导出到另一个表的问题

Question

procedure TFormmain.Button2Click(Sender: TObject);//物品删除
var
bianhao:integer;
begin
with ADOCommand1 do
begin
bianhao:=strtoint(trim(Edit2.Text));
CommandText:='select * from ck where 物品编号='+inttostr(bianhao);//找出要删除的记录
Execute;
with ADOTable2 do//导出要删除的记录
begin
Append;
Fieldbyname('物品编号').asinteger:=strtoint(InputBox('物品编号(格式为2000x)','请输入物品编号：','0'));
Fieldbyname('物品名称').asstring:=ADOTable1.Fieldbyname('物品名称').asstring;
Fieldbyname('出库时间').asstring:=InputBox('出库日期','请输入出库日期：','0');
Fieldbyname('物品价格').asfloat:=ADOTable1.Fieldbyname('物品价格').asfloat;
Post;
Refresh;
end;
ADOTable1.Active:=false;
CommandText:='delete * from ck where 物品编号='+inttostr(bianhao);//删除
Execute;
ADOTable1.Active:=true;
end;
end;