示例代码如下：
    procedure TForm1.btnCopyClick(Sender: TObject);
    var
     sfile,dfile : String;
    begin
    sfile :=‘a.txt’; //被copy的文件
    dfile :=‘b.txt’; //copy后的文件名
    CopyFile(pchar(sfile),pchar(dfile),false);
    第三个参数为 false，如果 b.txt 已经存在，则覆盖；如果为 true，则不进行操作。