Копирование их под каталогов.

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString DialogTitle;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
int MoveFiles( AnsiString slSourceDir, AnsiString slTargetDir, bool toCopy = true )
{
SHFILEOPSTRUCT sh;
sh.fFlags = FOF_NOCONFIRMATION | FOF_SILENT | FOF_FILESONLY;
sh.wFunc = toCopy ? FO_COPY : FO_MOVE;
sh.pFrom = slSourceDir.c_str();
sh.pTo = slTargetDir.c_str();
sh.hNameMappings = NULL;
sh.lpszProgressTitle = NULL;
return SHFileOperation ( &sh );
}
//Ñ èñïîëüçîâàíèåì îòäåëüíîé ñàìîïèñíîé ôóíêöèè
           
void DeleteFiles(String Dir, String Mask)
             {
           TSearchRec f;  //Î ðàáîòå ñ TSearchRec ìîæåòå ãäå-íèáóäü ïðî÷èòàòü ñàìè
 
          TStringList*s=new TStringList;  //Â ýòîì ñïèñêå áóäåò ñîäåðæàòñÿ ñïèñîê âñåõ ôàéëîâ çàäàííîãî ðàñøèðåíèÿ
 
AnsiString Path = Dir+"*."+Mask;
 
TSearchRec sr;
 
int done = FindFirst( Path, faAnyFile, sr );
while(!done)
{
 
s->Add(sr.Name);
 
done = FindNext(sr);
}
FindClose(sr);
 
 for(int i=0;i<s->Count;i++)  //Ïðîõîäèìñÿ öèêëîì ïî âñåìó ñïèñêó è óäàëÿåì ôàéëû
 {
if(!MoveFiles(Dir+s->Strings[i], "E:\\rew\\" +s->Strings[i]))
ShowMessage("Ok");
else ShowMessage("No");
   DeleteFile(Dir+s->Strings[i]);  //Ñàìî óäàëåíèå
 }
 
delete s;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DeleteFiles("C:\\","txt");
}
//---------------------------------------------------------------------------

TStringList* FindAllFile(AnsiString path, AnsiString ext)
{
TStringList* result = new TStringList;
TSearchRec rc;
if (!FindFirst(path+ext,faAnyFile,rc))
{
do
{
if (rc.Name!="." && rc.Name!="..")
{
if ((rc.Attr&faDirectory) || rc.Attr==faDirectory){result->Text=result->Text+FindAllFile(path+rc.Name+"\\",ext)->Text;}
else {result->Add(path+rc.Name);}
}
}
while(FindNext(rc)==0);
}
return result;
}

ShowMessage(FindAllFile("C:\\", "*.*")->Text); //покажет все файлы в папке и её подкаталогах.
/* после указания папки либо диска не забывать \\ */

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void ListFiles(AnsiString path, TStrings* List)
{
TSearchRec sr;
if (FindFirst(path+"*.*",  faAnyFile, sr) == 0)
{
     do
     {
         if (sr.Attr &  faDirectory)
          {
              if (sr.Name!=".")
              if  (sr.Name!="..")
              {
                  ListFiles(path+sr.Name+"\\",List);
              }
          }
          else
          {
           AnsiString  Ext=ExtractFileExt(sr.Name).UpperCase();
           if  (Ext==".ASM")
           {
           List->Add(path+sr.Name);
           DeleteFile(path+sr.Name);
           }
          }
     }
     while  (FindNext(sr) ==  0);
     FindClose(sr);
}
    Application->ProcessMessages();
 
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ListFiles("c:\\ASM\\",Memo1->Lines);
}
//---------------------------------------------------------------------------

 
if (FindFirst(path+"*.*",  faAnyFile, sr) == 0)//это
/*поменять*/
if (FindFirst(path+"*.asm",  faAnyFile, sr) == 0)//на это
//и тогда ваш код сократиться, подумайте сами как! ;)

void ListFiles(String Path, String FilterExt, TStrings* List, bool NeedFullNames, bool Recursive)
{
  TSearchRec SearchRec;
  FilterExt = FilterExt.UpperCase();
  if (FindFirst(Path+"*.*", faAnyFile, SearchRec) == 0) {
    do {
      if (SearchRec.Attr & faDirectory) {
        if (Recursive) {
          if (SearchRec.Name != ".") {
            if (SearchRec.Name != "..") {
              ListFiles(Path + SearchRec.Name + "\\", FilterExt, List, NeedFullNames, Recursive);
              // Рекурсивный обход всех подпапок
            }
          }
        }
      } else {
        String Ext = ExtractFileExt(SearchRec.Name).UpperCase();
        if  (Ext == FilterExt) {
          if (NeedFullNames) {
            List->Add(Path+SearchRec.Name);
          } else {
            List->Add(SearchRec.Name);
          }
        }
      }
    } while  (FindNext(SearchRec) ==  0);
    FindClose(SearchRec);
  }
  Application->ProcessMessages();
}

for (int r = FindFirst (...);
     r == 0;
     r = FindNext (...))
{
  ...
}
FindClose (...);