为什么我用了Pascal的文本文件的操作函之后，程序第一次可以启动，第二次启动时会出现错误？

Question

按了Program Reset之后，又可以启动了，奇怪。 
如果运行编译好的exe的文件，则会打开一连串的ERROR I/O 32的对话框，关也关不来。
所有文件操作的代码：
///////////////////////////////////////////////
if not FileExists(usefile) then fileCreate(usefile);
///////////////////////////////////////////////
AssignFile(useF,usefile);
      ReWrite(useF);
      Writeln(useF,ComboBox1.text);//记录当前操作员
      Closefile(useF);///////////////////////////////////////////////
if FileExists(usefile) then Deletefile(usefile);//////////////////////////////////////////////
ufn:='uf.user';
AssignFile(uf,ufn);
Reset(uf);
Read(uf,un);
CloseFile(uf);
statusBar1.Panels[2].Text:='当前操作员：'+un;///////////////////////////////////////////
ufn:='uf.user';
nameEdit.Text:='';
phoneEdit.Text:='';
AssignFile(uf,ufn);
Reset(uf);
Read(uf,un);
CloseFile(uf);
nameEdit.Text:=un;
////////////////////////////////////////////

Answer 1

var
  usef:TextFile  ;
  FileHandle: Integer;
  s:string;
begin
  s:=ComboBox1.Text;
  if not FileExists('c:\usefile.txt') then
  begin
  FileHandle :=FileCreate('c:\usefile.txt');
  FileClose(FileHandle );
  end;
    AssignFile(useF,'c:\usefile.txt');
    Append(usef);
    Writeln(usef,s);
    CloseFile(useF);
注:filecreate()这个函数,我查了一下delphi自带帮助,使用了句柄方式,所以,你之前直接 ...then filecreat(..)...那样应该是不可以地