Dentro del objeto FileSystem encontramos la función "FreeFile". Observa cómo puedes utilizarla para saber si un fichero está abierto o no en tiempo de ejecución.
Si no conocías Assert, te va a encantar. Se trata de un comando para desarrolladores que te facilitará tremendamente el control de errores en tu código. Si no lo usabas, seguro que empezarás a utilizarlo.