Update queery

here is the code :

procedure TForm6.ADOTable1AfterDelete(DataSet: TDataSet);    //this is what seems to go  wrong
begin
ADOQuery3.Close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Text:= 'update films set available =''yes'' where dvd_ID ='+QuotedStr(Currentdvd_ID);
ADOQuery3.ExecSQL;
end;

procedure TForm6.ADOTable1BeforeDelete(DataSet: TDataSet);
begin
Currentdvd_ID := wwDBGrid1.Datasource.Dataset.FieldbyName('dvd_ID').value;
end;



procedure TForm6.BitBtn1Click(Sender: TObject);  //delete button
 var i:integer;
begin
  with wwdbgrid1, wwdbgrid1.datasource.dataset do begin
      DisableControls;     { Disable controls to improve performance }
      for i:= 0 to SelectedList.Count-1 do begin
         GotoBookmark(SelectedList.items[i]);
         Freebookmark(SelectedList.items[i]);
         Delete;          
      end;
      SelectedList.clear;  
      EnableControls;      
    end;
 end;

form variable is declared :var Currentdvd_ID: string;

When I delete the record
 I get :


Project Project1.exe raised exception class EOleException with message 'Current provider
does not support returning multiple recordsets from a single execution'.Process stopped.Use...."

Why??