Повторяюсь, скопируйте функцию по ссылке во 2 посте, затем делайте так
Код:
CopyFiles(ExtractFileDir(ParamSTR(0)) + '\Data', sEdit1.Text);
где
'\Data' имя папки с копируемыми файлами, а
sEdit1.Text путь к папке куда эти файлы нужно скопировать, что не понятно?