求助高手帮忙，内存映射读取数据

Question

delphi： 内存映射读取200M的文本数据，并添加到Tmemo控件，最好有源代码，必须测试通过的。

Answer 1

http://wenku.baidu.com/view/b48036fa941ea76e58fa047e.html

Answer 2

200M的文本里，是各种ASCII码，并且每读一个就要判断一个数据。速度很慢。现在我用的流来一个一个读取，是在太慢了。考虑内存映射来读取，但不晓得怎么写代码，初次做映射，学习中

Answer 3

写出代码，分全给他。可行的读取数据，并显示在Tmemo控件中。