Delphi Tfilestream 读写文件 提示系统资源不足

[Acheng998]

代码：
try
fstream:=TFileStream.Create(FFileName,fmOpenWrite or fmShareDenyNone);
Fstream.Position:=0;
if IsReplace then
Fstream.Seek(Fstream.Size-sizeof(tmpwInfo),soBeginning)
else
Fstream.Seek(Fstream.Size,soBeginning);
Fstream.Write(tmpwInfo,SizeOf(tmpwInfo));
result:=True;
except
end;
Fstream.Free;

运行没有问题 运程中也没有看到内存资源占用在上升，一切似乎表象都很正常，可是，当运行了十万次时，系统提示系统资源不足，可是看内存也没有点满，任务管理器显示内存也才40~50%，再运行下去，就会提示内存不足，然后线程中止了，读写的文件都是40M左右，没有超大文件，有高手帮我分析一下吗？急

[lyhoo163]

能读写10万次，说明代码无问题。可能是系统内存运行出现的错误。 解决的办法，可以通过终止主线程，来解决。