编写asp组件时，用try..except结构的问题

组件的一个函数如下:function TfFile.Write(const sFileName, sFileContent: WideString; bOverWrite: OleVariant): OleVariant;
  var sDirectory:WideString;    
      fFile:TextFile;
begin  sDirectory:=ExtractFileDir(sFileName);  if Not DirectoryExists(sDirectory) then
  begin
    try
      MkDir(sDirectory);
    except
      Result:=False;
      Exit;
    end;
  end;  bOverWrite:=StrtoBool(VartoStr(bOverWrite));  AssignFile(fFile,sFileName);  try
    if (bOverWrite) or (not FileExists(sFileName)) then
      ReWrite(fFile)
    else
      Append(fFile);
  except
    CloseFile(fFile);
    Result:=False;
    Exit;
  end;  Writeln(fFile,sFileContent);
  CloseFile(fFile); 
  Result:=True;end;当程序执行ReWrite(fFile)失败时，为何直接显示“IO/Error”，而不是由函数返回false呢？这样一来，我这个try结构不就没起作用了吗？最近在学习用delphi编写asp组件，请指教，谢谢！