将接收过来的数据存.txt的文本文件，怎么存多了就存不下去了 100分(100分)

本程序是将接收过来的的数据包解析后存储到文本文件中，每个包包含8条支路的DI量（0或1），每条支路有25个量，解析后每个包便成为了【1..8】【1..25】的二维数组，将此包缓存起来，暂时存到1个三维数组中，每达到100次，即接收到100个数据包以后，启动储存线程开始存储。事先建好了8张.txt表，代表8条支路的数据，将每个二维数组的第一行，即第一条支路的数据，存到第一张表中，将每个二维数组的第二行，即第二条支路的数据，存到第二张表中。。。

该方法开始能正常存储，但数据量多了以后，后面的.txt表就存不下数据了，请问这是为什么？
////存储过程
for k:=1 to 8 do //依次打开8张.txt表， 表名是从DIline1到DIline8
begin
s5:='DIline'+inttostr(k);
AssignFile(MyTextFile,‘F/'+s5+'.txt'); // 找到对应的表
Append(MyTextFile);//添加记录
try
for j:=1 to 100 do //依次调用100次缓存的数据
begin
tempstr1:='';
for m:=1 to 25 do //将数据量字符化
begin
tempstr1:=tempstr1+inttostr(B[j][k][m])+','; //B是缓存是用
end; // 的三维数组
writeln(MyTextFile,tempstr1); //写入文本文件.txt中
end;
finally
CloseFile(MyTextFile);
end;
end;

我觉得你每次处理完是不是可以加上?
Application.ProcessMessage
每次关闭文件之后.