CopyFiles(ExtractFileDir(ParamSTR(0)) + '\Data', sEdit1.Text);
Я не понял Вашего вопроса, но всё же Вам на него отвечу!