В заданной директории просмотреть все файлы *.txt и вывести список файлов содержащих заданные текст в Memo

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <memory>
#include <System.IOUtils.hpp>
#include "FileCtrl.hpp"
#pragma hdrstop
#include "SearchFile.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormSearch *FormSearch;
//---------------------------------------------------------------------------
__fastcall TFormSearch::TFormSearch(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
 
void __fastcall TFormSearch::ButtonSearchClick(TObject *Sender)
{
 
String Dir;
MemoFile->Clear();
if(SelectDirectory("Select directory",".",Dir))
{
  TStringDynArray Files;
  Files = TDirectory::GetFiles(Dir, "*.txt", TSearchOption::soTopDirectoryOnly);
  std::auto_ptr<TStringList> L(new TStringList);
 for(int i=0; i<Files.Length; ++i)
  {
     L->Clear();
     L->LoadFromFile(Files[i]);
 
   if(L->Text.Pos(EditSearch->Text))
    {
      MemoFile->Lines->Add(Files[i] +"\n");
    }
     }
  }
}