delphi

这个问题怎么解决，很急！！！！！！！！
这是车库管理系统，这一步的功能是把一张表的一条数据移到备份表，然后把这张表的这条记录删除。
代码：
procedure TForm7.Button1Click(Sender: TObject);
var m,n,z,t:variant;
begin       begin
         ADOquery1.close;
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Add ('select ID,是否使用,车型,进入时间 from chewei where 车牌=:k');
         ADOQuery1.parameters.parambyname('k').value:=form7.Label5.Caption;
         ADOQuery1.open;
         m:=form7.ADOQuery1.FieldByName('ID').AsString;
         n:=form7.ADOQuery1.FieldByName('是否使用').AsString;
         z:=form7.ADOQuery1.FieldByName('车型').AsString;
         t:=form7.ADOQuery1.FieldByName('进入时间').value;
         end;
       begin
         adoquery2.Close;
         adoquery2.SQL.Clear;
         adoquery2.SQL.Add('insert into cars values(ID=:a,车牌=:b,是否使用=:c,车型=:d,进入时间=:e,离开时间=:f,费用=:g)');
         adoquery2.Parameters.ParamByName('a').Value:=m;
         adoquery2.Parameters.ParamByName('b').Value:=form7.Label5.Caption;
         adoquery2.Parameters.ParamByName('c').Value:=n;
         adoquery2.Parameters.ParamByName('d').Value:=z;
         adoquery2.Parameters.ParamByName('e').Value:=t;
         adoquery2.Parameters.ParamByName('f').Value:=form7.Label7.Caption;
         adoquery2.Parameters.ParamByName('g').Value:=form7.Label8.Caption;
         adoquery2.ExecSQL;
         end;       begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('update chewei set 车牌=:ba,是否使用=:ca,车型=:da,进入时间=:ea,离开时间=:fa,费用=:ga where ID=:aa ');
    adoquery1.Parameters.ParamByName('aa').Value:= m;
    adoquery1.Parameters.ParamByName('ba').Value:='';
    adoquery1.Parameters.ParamByName('ca').Value:='否';
    adoquery1.Parameters.ParamByName('da').Value:='';
    adoquery1.Parameters.ParamByName('ea').Value:='';
    adoquery1.Parameters.ParamByName('fa').Value:='';
    adoquery1.Parameters.ParamByName('ga').Value:='';
    adoquery1.ExecSQL;
       end;
form7.Close;
form14.Edit5.Text:='';
form14.Edit7.Text:='';
form14.Edit8.Text:='';
end;