关于文本文件的疑问？

Question

我写的，
procedure TMainForm.RzToolbarButton3Click(Sender: TObject);
var
  i: Integer;
  slist: TStringList;
  strFile:string;
begin
  //不存在，就创建文件
  if SaveDialog1.Execute then
    begin
        strFile:=SaveDialog1.FileName;
        if not FileExists(strfile) then
           begin
              FileCreate(strFile);
           end;
        slist := TStringList.Create;
        dm.notesbakenew.First;
        for i := 0 to dm.notesbakenew.Recordcount - 1 do
           begin
              sList.Add(dm.notesbakenew.FieldByName('sj').AsString + ',' + dm.notesbakenew.FieldByName('fsz').AsString);
              dm.notesbakenew.Next;
            end;
        slist.SaveToFile(strFile);
    end;
end;
end.
为什么有时候好用，有时候提示进程在被占用，不能创建文件？

Answer 1

把slit赋值放到外面，然后filecreate－>savetofile

Answer 2

加一个FileHandlevar
  FileHandle:integer;
..............
  FileHandle:=FileCreate(strFile);
.............  FileClose(FileHandle);