如何关闭一个正打开的.txt文件？(100分)

我用程序对一个txt文件进行读写，想在退出时想把这个文件关闭，以让别的程序再用。
用如下代码：
if FileExists(MyFile) then //退出时关闭文件
begin
AssignFile(LogFile,MyFile);
ReSet(LogFile);
//Rewrite(LogFile);
CloseFile(LogFile);
end;
但发生 "I/O error "错误，请问如何安全地关闭它呢？

AssignFile(LogFile,MyFile);
{$I-}
ReSet(LogFile);
{$I+}
if IOResult = 0 then
CloseFile(LogFile)
else
ShowMessage('有问题！');