Delphi：检查文件是否正在使用中

I want to write to/delete a file but sometimes I get a crash if the file is in use by another program. How do I check to see whether the file is opened by another process or I can open it for writing?I want to write to/delete a file but sometimes