Удаление файлов по маске

{
AnsiString DirPath = Edit1->Text;
TStringList* ToDel = new TStringList();
ToDel->LoadFromFile("Spisok.txt");
AnsiString ObjectName;
for (int i = ToDel ->Count-1; i >= 0; i--)
{
   ObjectName = DirPath+ToDel->Strings[i];
   if (DirectoryExists) 
      RemoveDir (ObjectName);
   (FileExists); 
      DeleteFile (ObjectName);
      }
delete ToDel;
}

char* filemask = "*.lnk";

ToDel->LoadFromFile("Spisok.txt");

{
 AnsiString Path = Edit1->Text;
 TIniFile *Ini = new TIniFile("spisok.ini");
TSearchRec sear;
TStringList* ExtToDel= new TStringList();
 
Ini->ReadSectionValues("ext", ExtToDel);
 
for (int i = ExtToDel ->Count-1; i >= 0; i--)
{
             if(FindFirst(Path + ExtToDel->Strings[i], faAnyFile, sear) == 0)
    {
        do
        {
              DeleteFile(Path+"\\"+sear.Name);
        }
        while(FindNext(sear) == 0);
    }
 
    FindClose(sear);
}
}

TSearchRec sear;
          TStringList* ExtToDel= new TStringList();
          AnsiString Path =   Edit1->Text;
          TIniFile* Ini = new TIniFile(ExtractFilePath( Application->ExeName ) +"spissok.ini");
 
          Ini->ReadSection("ext", ExtToDel);
 
for (int i = ExtToDel ->Count-1; i >= 0; i--)
{
 
             if(FindFirst(Path + ExtToDel->Strings[i], faAnyFile, sear) == 0)
    {
        do
        {
             DeleteFile(Path+"\\"+sear.Name);
        }
        while(FindNext(sear) == 0);
    }
 
    FindClose(sear);
}
delete ExtToDel;
 delete Ini;

Memo->Lines->Add(Now());
Memo->Lines->Add("Удалено "+sear.Name+IntToStr(РазмерФайла));