delphi I/O错误 102 加入append之后依然报错，求助。

代码如下：
Delphi(Pascal) code

procedure TMainForm.tbxtmOpenToolClick(Sender: TObject);
var
  fPasFile: TextFile;
  sLineText: string;
  oSystemList: TSymbolList;
  oCodeAnalyzer: TCodeAnalyzer;
begin
  //创建系统字符表
  oSystemList := TSymbolList.Create;
  try
    SymbolList.CreateSystemSymbolList(SymbolList.CSystemSymbol, oSystemList);
    //穿件文件预处理实例
    FPreProcessedFile := TFilePreProcess.Create(oSystemList);
    try
      //关联文件
      if dlgOpen1.Execute then
        AssignFile(fPasFile, dlgOpen1.FileName);
        [color=#FF0000]Append(fPasFile);[/color]      try
        Reset(fPasFile);
        while not Eof(fPasFile) do
        //逐行读取文件内容，并进行文件预处理
        begin
          Readln(fPasFile, sLineText);
          FPreProcessedFile.SegmentWord(sLineText);
        end;
      finally
        CloseFile(fPasFile);
      end;
      //文件预处理结束，分析代码，获取统计信息
      FCodeAnalyzer := TCodeAnalyzer.Create;
      FCodeAnalyzer.FilePreprocesser := FPreProcessedFile;
      FCodeAnalyzer.AnalysisCode;
//      CreateClassGrid;
      CreateMethodGrid;
    finally
      FreeAndNil(FPreProcessedFile);
    end;
  finally
//    FreeAndNil(oSystemList);
  end;
end;

加入了append之后，出现打开对话框后，点击取消，依然报错‘I/O错误 102’
这是什么原因，怎么解决啊？

Delphi(Pascal) code

[color=#FF0000]Append(fPasFile);[/color]

这行代码[color][/color]删除