Объединение файлов

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   String Folder =  ".", targ="output.txt", nF;
   TMemoryStream *ms = new TMemoryStream();
   TFileStream *fs = new TFileStream(targ,fmCreate|fmOpenWrite) ;
   TSearchRec SR;
   Memo1->Clear();
   if(FindFirst(Folder+"\\*.*",faAnyFile,SR) == 0)
   do
   {
     nF = SR.Name;
     if (nF != "." &&  nF != "..")
      if ((SR.Attr & faDirectory)==0)
       if (nF.SubString(nF.Length()-2,nF.Length()).UpperCase()=="TXT")
         if (nF != targ) Memo1->Lines->Add(nF);
   }
   while(FindNext(SR)==0);
   for (int i=0;i<Memo1->Lines->Count;i++) {
     ms->Position = 0;
     ms->LoadFromFile((String)Memo1->Lines->Strings[i]);
     fs->CopyFrom(ms,ms->Size);
   }
   FindClose(SR);
   delete fs;
   delete ms; 
}

#include <iostream>
#include <string>
#include <boost/filesystem.hpp>
//---------------------------------------------------------------------------
#pragma argsused
//---------------------------------------------------------------------------
using namespace std;
namespace fs=boost::filesystem;
//---------------------------------------------------------------------------
int main()
{
fs::path dr(".\\Результат");
if(! fs::exists(dr) ) fs::create_directory(dr);
 
ofstream ofs(".\\Результат\\result.txt");
if(! ofs) { cerr<<"Can not create file \"result.txt\""<<endl; return 1;}
 
fs::path dir= fs::current_path();
fs::directory_iterator first(dir);
fs::directory_iterator last= fs::directory_iterator();
 
for(; first!= last; ++first)
 {
     fs::path p=  first->path();
     if( fs::extension(p)==".txt")
         {
                string filename= p.native_file_string();
                ifstream ifs( filename.c_str()  );
                if(! ifs) cerr<<"Can not open file \""<<filename<<"\""<<endl;
                else
                    {
                        cout<<filename<<endl;
                        ofs<<ifs.rdbuf()<<endl;
                    }
         }
 };
cout<<"Done!"<<endl;
getchar();
return 0;
}
//---------------------------------------------------------------------------

if(FindFirst(Folder+"\\*.txt",faAnyFile,SR) == 0)