아래와 같은
delete 쿼리가 실행되서
레코드는 삭제되는데
//=====================================
procedure TForm1.Se_bt_del1Click(Sender: TObject);

begin
//삭제1

with Ju_del_qua do begin
Close;
    SQL.Clear;
    SQL.Add('delete from Jumun ');
    SQL.Add(' where (Jumun_date=:DATE)');
    SQL.Add(' and (Jumun_custcode=:CODE)');
    ParamByName('DATE').AsString:=
     Se_edit_a6.Text + Se_com_b6.Text + Se_com_c6.Text;
    ParamByName('CODE').AsString:=Se_la_f6.Caption;
    Open;
    end;
end;
//=======================================

바로 그림과 같은 에러가 뜹니다.

어디가 문제인지 알려주세요....

그리고 delete 쿼리가 실행되면
몇개의 레코드가 삭제될것이다. 를
메세지박스로 구현 예 , 아니오
로 구현하고자 합니다.
도와주세요...^.^