Teria outa forma simples tb atraves dos comandos:

copyfile(pwidechar(application.ExeName),pwidechar( local e nome da copia),false);
...