各位大侠帮忙看一下seek的问题好吗？

TextFile类型不能用seek()定位。
记录文件，无类型文件才能用seek()定位，但不能用append()。下面程序在 Delphi6运行通过，结果正确：
var f:file ;
begin
  assignfile(f,'c:\test.ini');
 try
  reset(f);
  seek(f,1);
 finally
  closefile(f);
 end;
end;