Alguem pode me ajudar com ADOConnection?

no botão ok de uma certa tela eu abro uma transação
ADOConnection.BeginTrans;

executo uma função (no oracle) q pode me retornar um determinado valor entre 0 e 9
dependendo o valor retornado eu chamo uma função (no delphi) passando esse valor retornado e essa função exibe uma mensagem perguntando se deseja continuar ou não (uso o Application.MessageBox)
o delphi da o seguinte erro ´ Não é possivel abrir mais transações para essa sessão´;
outro erro acontece quando a mensagem é apenas de confimação (somente botão ok) ele da rollback depois de exibir a mensagem mas sem q eu peça pra dar rollback

alguem sabe pq?