Sql-запрос на удаление

procedure TFrmChecks.BtnDelClick(Sender: TObject);
begin
  with frmChecks.Query1 do
  begin
    SQL.Clear;
    Sql.Add('delete from menu where name=:nameA and vid=:vidA and col=:colA and CE=:cenaA and SU=:sumA and SROK=:srok_reA and DATA=:data_postA and POST=:postavshA');
 //   Params.ParamByName('idA').Value:= frmEditCheck.edit1.Text;
    Params.ParamByName('nameA').Value:= frmEditCheck.edit2.Text;
    Params.ParamByName('vidA').Value:= frmEditCheck.ComboBox1.Text;
    Params.ParamByName('colA').Value:= frmEditCheck.edit3.Text;
    Params.ParamByName('cenaA').Value:= frmEditCheck.edit4.Text;
    Params.ParamByName('sumA').Value:=frmEditCheck.edit6.Text;
    Params.ParamByName('srok_reA').Value:= frmEditCheck.edit5.Text;
    Params.ParamByName('data_postA').Value:= frmEditCheck.edit6.Text;
    Params.ParamByName('postavshA').Value:= frmEditCheck.ComboBox2.Text;
    ExecSQL;
    sql.Clear;
    sql.Add('select * from menu.dbf') ;
    open;
 
  frmEditCheck.edit2.text:='';
  frmEditCheck.combobox1.ItemIndex:=-1;
  frmEditCheck.edit3.text:='';
  frmEditCheck.edit4.text:='';
  frmEditCheck.edit5.text:='';
  frmEditCheck.edit6.text:='';
  frmEditCheck.combobox2.ItemIndex:=-1;
  FormActivate(Sender);
end;
end;