CopyFile( lpExistingFileName: PChar; lpNewFileName: PChar; bFailIfExists: BOOL ): BOOL;
begin CopyFile(, , True); end;
var ExistFile, NewFile: string; begin ExistFile := ; NewFile := ; if CopyFile(PChar(ExistFile), PChar(NewFile), True) then ShowMessage(); end;