Abrindo/fechando mais de uma conexão ADOConnection (SQL Server 2008 / Delphi 7)

Bom dia Amigos.

Estou com problema ao criar uma nova transação com ADOConnection (SQL SERVER 2008 / Delphi 7), ou seja, as famosas transações alinhadas.
O que eu preciso:
Exemplo: BeginTrans(1),BeginTrans(2),BeginTrans(3) e quando precisar fechar vou fechando BeginTrans(3), BeginTrans(2), BeginTrans(1).
O que eu fiz foi um if para verificar se existe transação aberta caso não exista, eu abro, conforme exemplo abaixo;
if not Dm.conexao.InTransaction then
Dm.conexao.BeginTrans;
Mas na verdade não resolve meu problema, pode sempre vou depender de uma unica transação.
Alguém conhece uma forma de abrir/fechar mais de uma transação, usando o ADOConnection ?
Obrigado