Fórum ID da Transação usando DbExpress #325290

procedure Transacao(aDataSet: TClientDataSet;var Id:Integer);
 var TransDesc: TTransactionDesc;
begin
 try
  TransDesc.TransactionID  := 1;//Aqui eu posso passar o valor de uma variável Inteira como ID???
  TransDesc.IsolationLevel := xilREADCOMMITTED;
  sqlCONN.StartTransaction(TransDesc);
  if aDataSet.ApplyUpdates(0) = 0 then
   begin
     aDataSet.ApplyUpdates(0);
     sqlCONN.Commit(TransDesc);
   end;
 Except
  sqlCONN.Rollback(TransDesc);
   raise Exception.Create(´Ocorreu um erro no processo transação,´+
                          ´ a operação não foi concluída!´+#10+´Tabela: ´+
                          pChar(aDataSet));
 end;
end;