我使用了TTimer组件定时读取文件，每次读取的时候都是将文件的全部内容一起读取，现在我只想读取增加的部分内容，我的代码如下：  
  var  
                  DirName,sText:String;  
                  FTextFile:TextFile;     //  
                  i:integer;  
  begin  
                  if   FileExists(DirName)   then  
                  Begin  
                                  AssignFile(FTextFile,DirName);       //load   file  
                                  Reset(FTextFile);   //setting   file   read   only  
                                  i:=0;  
                                  while   not   eof(FTextFile)   do  
                                  Begin                                                  
                                                  readln(FTextFile,sText);       //read   a   line   of   file  
                                                  i:=i+1;  
                                                  Memo2.Lines.Add(IntToStr(i)+'         '+sText);  
                                  End;  
                                  CloseFile(FTextFile);  
                  End;  
  end;  
  在上面的代码中如何修改成只读取新增的部分内容？？？  
  如果使用Seek函数，则怎么使用才是正确的？  
  请各位帮帮忙，谢谢!