为什么用流写入TXT数据不完整?该如何解决

为什么用流写入TXT数据不完整?
请问本人用流读写txt时,数据不能完整写入到文本中,例如查询结果的记录10条以内没问题,记录超过10条以上就一条记录都不能写入,而用第三方控件能完整写入数据,相同的查询结果,为什么?
代码如下:
list:=TStringList.Create;
if FileExists(d:\text.txt) then
List.LoadFromFile(d:\text.txt);
query1.First;
for i:=0 to query1.RecordCount-1 do
begin
list.Append(query1.Fields[0].asstring);
query1.Next;
end;
list.SaveToFile(GetUniqueFileName(d:\text.txt);
List.Free;

请高手指点

------解决方案--------------------
oracle+BDE最好也不要RecordCount,DELPHI帮助中有的
Note: Use RecordCount with care, because record counting can be a costly operation, especially for SQL queries that return large result sets. Generally, an application should only use RecordCount with Paradox and dBASE tables.
换ADO没问题的,或者,先用select count(*) 得到记录数