Transação com o dbExpress

Pessoal,

Estou trabalhando no Delphi7 com o dbExpress acessando o SQL Server, numa estrutura de 3 camadas.
Estou com o seguinte problema, lá no servidor de aplicação, criei uma função que inicia a transação com o seguinte código:

[i:c9d2abe33a]var
TD: TTransactionDesc;
begin
if not SQLDataSet1.SQLConnection.InTransaction then
begin
TD.TransactionID:=1;
TD.IsolationLevel:=xilREADCOMMITTED;
SQLDataSet1.SQLConnection.StartTransaction(TD);
end;[/i:c9d2abe33a]

Porém quando ele vai executar a última linha [i:c9d2abe33a]SQLDataSet1.SQLConnection.StartTransaction(TD);[/i:c9d2abe33a], surge o seguinte erro:

NÃO É POSSÍVEL CRIAR UMA NOVA TRANSAÇÃO PORQUE A CAPACIDADE FOI EXCEDIDA.


Alguém poderia me ajudar?
Obrigado.