Переделать программу, есть предложение?

[heroii2009]

Вот код поисковой программы

void Scan(AnsiString Path)
{
  TSearchRec sr;
  if(FindFirst(Path + "*.*", faAnyFile, sr) == 0)
    {
      do
        {
          if(sr.Attr & faDirectory)
            {
              if((sr.Name != ".") && (sr.Name != ".."))
               {
                Scan(Path + sr.Name + "\\");
                }
            }
          else
            {
              if(ExtractFileExt(sr.Name) == ".txt")
              ShowMessage(Path + sr.Name);
            }
        }
      while(FindNext(sr) == 0);
      FindClose(sr);
    }
}

запускаю я программу через

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
   Scan("D:\\");
 
}

но вот беда, результат выводиться в окне сообщений

ShowMessage(Path + sr.Name);

[Stilet]

А куда должен выводиться? в Мемо?

Memo->Lines->Add(Path + sr.Name);