Delphi - ¿Cómo comprobar si un fichero está abierto?

Filtrado por el usuario: kip
<<>>
Filtrado por el usuario 'kip' (Eliminar fitro)
 
Vista: