求一delphi7 代码 ，操作txt文件的

有一无类型文件，但可以用TXT 打开，文件大小约为30M，且内容一直会增加。 txt文件内容如下 ... ABCDE 123 BCDEF 234 ABCDE 888888 CDEFG 234 .... ABCDE 999999 主要操作过程如下 当读取到'ABC'时，将空格后面的所有字符都复制到memo里面去，如果没有就进行下一行判断（程序运行正常时应该将123，888888能复制出来） 1、因为文件太大每次读取时都很慢，我想将文件当前的最后一行复制出来并保存后，下一次运行程序时直接将指针定位到保存的最后一行。 2、将最后一行（ABCDE 999999）以前的数据全部剪切到D:\123.TXT文件中去，这样应该也可以提升速度 麻烦大神将关代码的作用能够讲解一下

文件指针方式读取，可以指定读取位置。

public class Utils { private static long lastClickTime; public static boolean isFastDoubleClick() { long time = System.currentTimeMillis(); long timeD = time - lastClickTime; if ( 0 < timeD && timeD < 500) { return true; }