这么在文本文件的第一行插入信息?解决思路

这么在文本文件的第一行插入信息?
1.文本文件可能比较大,而且操作有可能比较频繁.
2.每写一句都必须真的写入,不能只在内存里,怕程序崩溃.

所以不能用tstringlist之类来做,每次都保存一下,文件大了不好,而且慢,又耗内存
用filewrite之类的又只是覆盖.用TextFile的对应操作也只能append,或者重新写入
没有用.流好像也是覆盖.
有什么其他的方法可以做到吗?

------解决方案--------------------
用 FileOpen、FileSeek、FileWrite、FileClose这一系列函数。在SysUtils单元。Delphi帮助里有详细介绍
------解决方案--------------------
不管用什么方法对系统来说都是覆盖，因此还是从程序优化角度来考虑，比如在内容中写入10条再存一次盘之类的