delphi2007 教程

Debugger Exception Notification问题？？ ?? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiBase/html/delphi_20061204190804295.html
program   Project2;  
   
  {$APPTYPE   CONSOLE}  
   
  uses  
      SysUtils;  
      const  
      filename1='c:\11.txt';  
      filename2='c:\22.txt';  
      var  
      f1,f2:textfile;  
      s:string;  
   
  begin  
  assignfile(f1,filename1);  
  assignfile(f2,filename2);  
  rewrite(f2);  
  writeln(f2,'hello');        
  while   not   Eof(f1)   do  
  begin  
  readln(f1,s);  
  writeln(f2,s);  
  end;  
  closefile(f1);  
  closefile(f2);  
  end.  
   
  调试的时候，老报标题的错误  
  我的qq是44665376  
  哪位高手，能告诉我原因

AssignFile(f1,filename1);  
      FileMode   :=   0;     {Set   file   access   to   read   only   }  
      Reset(f1);  
      ...  
      CloseFile(f1);