Erase 过程

Erase 过程用于删除一个已经存在的文件。如果文件被打开，先关闭该文件再执行删除操作。

过程原型如下：

procedure Erase(var F);

FileExists 函数

FileExists 函数用于测试指定文件名的文件是否存在。如果文件存在，返回True；否则，返回False。

函数原型如下：

function FileExists(const FileName: string): Boolean;