Копирование группы файлов по заданным путям

#include <stdio.h>
#include <vcl.h>
#include <IdGlobal.hpp>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{ Edit1->Clear();
}
//---------------------------------------------------------------------------
bool CopyAllFiles(AnsiString in_path, AnsiString out_path) {
    TSearchRec fp;
    if(FindFirst(in_path + "\\*.*", faAnyFile | faDirectory, fp) != 0)
        return false;
    do {
 
        if((fp.Name != ".") && (fp.Name != "..")) {
           if(fp.Attr & faDirectory)
                CopyAllFiles(in_path + '\\' + fp.Name, out_path);
           else
                CopyFileTo(in_path + '\\' + fp.Name, out_path + '\\' + fp.Name);
        }
 
    } while(! FindNext(fp));
    FindClose(fp);
    return true;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
CopyAllFiles("\\" + Edit1->Text + "\c$\Temp\1","\\" + Memo1->Text + "\c$\8");
     getchar();
     
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Memo1->Lines->LoadFromFile("c:\\file.txt");