Fórum PROCEDIMENTO DELETE ESTA COM ERRO DELPHI XE2 #516748

procedure TfrmProtocolo.ac_DeletarExecute(Sender: TObject);
begin
  dmPrincipal.dsItemProtocolo.DataSet.Delete;
  dmPrincipal.dsProtocolo.DataSet.Delete;
  try
  if dmPrincipal.dsProtocolo.DataSet is TClientDataSet then
    TClientDataSet(dmPrincipal.dsProtocolo.DataSet).ApplyUpdates(0);
    TClientDataSet(dmPrincipal.dsItemProtocolo.DataSet).ApplyUpdates(0);
  except
    on E: Exception do
      MessageDlg('Ocorreu um erro na tentativa de excluir os dados' + #13#10 +
        E.Message, mtError,[mbOk], 0);
  end;
end;