Работа с файлами и каталогами

...Button->Click... {
  ShowMessage("Beauty Надек8");
}

//---------------------------------------------------------------------------
 
#ifndef UFilesInFolderH
#define UFilesInFolderH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Dialogs.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
                TButton *Button1;
    TEdit *Edit1;
                void __fastcall Button1Click(TObject *Sender);
    void __fastcall FormShow(TObject *Sender);
private:    // User declarations
public:     // User declarations
                __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
    void DeleteFiles(String Dir, String Mask);
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "UFilesInFolder.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
                : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString Path = ExtractFilePath(Application->ExeName);
    AnsiString Ext =  Edit1->Text;
    ShowMessage("Удаление файлов из папки :"+ExtractFilePath(Application->ExeName));
    if (OpenDialog1->Execute()) {
        DeleteFiles(Path,"*"+Ext); // Удаляем все jpg-файлы из папки "F:\\test\\"
        ShowMessage("Файлы "+Edit1->Text+" из папки "+Path+" удалены.");
    }
}
//---------------------------------------------------------------------------
void DeleteFiles(String Dir, String Mask)
{
    TSearchRec f;  //О работе с TSearchRec можете где-нибудь прочитать сами
    TStringList*s=new TStringList;  //В этом списке будет содержатся список всех файлов заданного расширения
//  Mask = Edit1->Text;
    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++) { //Проходимся циклом по всему списку и удаляем файлы
        DeleteFile(Dir+s->Strings[i]);  //Само удаление
    }
    delete s;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
    Edit1->Text = "txt";
}
//---------------------------------------------------------------------------