Exclusão de registro

Boa noite... Não estou conseguindo excluir registro em uma tabela.. Aparentemente ele mostra como deletado, mas se vou consultar na base o registro está lá... É como se fosse deletado em memória.. Estou fazendo assim:    if  application.messagebox('Confirma a exclusão ? ','alerta',
         mb_yesno + mb_iconquestion + mb_defbutton2) = mryes then
         begin
           CDSFROTA.delete;
           CDSFROTA.ApplyUpdates(-1);
           dmConexao.Comit;          end;     Abaixo é mostrado o método comit   procedure TdmConexao.comit;
var Transacao : TTransactionDesc;
begin    try
      Transacao.TransactionID  := 1;
      Transacao.IsolationLevel := xilREPEATABLEREAD;       SqlConexao.StartTransaction(Transacao);
      SqlConexao.Connected := True;
      SqlConexao.Commit(Transacao);    except
      on Exc:Exception do
       begin
          ShowMessage('Erro no registro do banco: '+ Exc.Message);
          SqlConexao.Rollback(Transacao);
       end;
   end; end;   Estou usando o Delphi 2010 + Firebird 2.1 + DBX  

procedure TForm9.ClientDataSet1ReconcileError(DataSet: TCustomClientDataSet;
  E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
showmessage(e.Message);
end;