Delphi 复制和删除文件的方法

复制和删除文件的代码如下：

      org := ExtractFilePath(Application.ExeName) + 'update/' + 'a.txt';
      dest := ExtractFilePath(Application.ExeName) + 'a.txt';
      CopyFile(pchar(org), pchar(dest), false);

      DeleteFile(org);