线程的问题：'Thread creation error：存储空间不足，无法处理此命令。'

Question

出错提示：EThread with message 'Thread creation error：存储空间不足，无法处理此命令。'线程：
procedure ThreadReceive.Execute;
begin
...//处理我自己的东西
free;//疑问1资源是否已经释放
end;调用：
      begin
        TReceive:=ThreadReceive.create(StrData,'',Socket);//在这里出错
        TReceive.Priority:=tpnormal;
        TReceive.Resume;
      end;
当执行调用有30多次时出现错误：
出错提示：EThread with message 'Thread creation error：存储空间不足，无法处理此命令。'
希望能得到各路高手的帮助

Answer 1

我上次说的在 Execute 中调用 Free 是不正确的。只要设置 FreeOnTerminate:=True, 并执行 Terminate 就行了

Answer 2

30 個就會出錯?是否代碼中用了什麼很點資源的東西?釋放有問題啊,自己維護釋放比較好!用
freeAndNil();