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

[iwillgo2]

出错提示：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：存储空间不足，无法处理此命令。'
希望能得到各路高手的帮助

[hiflower]

我上次说的在 Execute 中调用 Free 是不正确的。

只要设置 FreeOnTerminate:=True, 并执行 Terminate 就行了

[aiirii]

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