线程和事务可以一起用吗？

两个可以一起用吗？可以话，怎么用。
我这段代码提示出错："无法在此会话中启用更多事务"
代码如下
  while True do
  begin
    Sleep(1);
    try
      Functions.Connect.BeginTrans;
      .
      .
      .

       SaveData;  //保存数据过程
       Functions.Connect.CommitTrans
     except
       on E: Exception do
       begin
         ShowMessage(E.Message);
         functions.Connect.RollbackTrans;
      end;
    end;