🚀 go-pugleaf

Does the FindClose release any connection to directory ?
I have certain problem ... when i start this application it scans directory
tree and delete unwanted files.
After that process i cant delete manualy (from explorer) any directory from
that tree untill i close application.
Error message is that directory is in use ...

code snipet:

void TForm1::FindFilesInDirectory (const String directory, const String
extenzion)
{
String Ext = extenzion;
int Cpos=0;
Cpos = extenzion.Pos(";");
int z=1;
if (!extenzion.Pos(";"))
    FindExtension(directory, Ext);
else {
    do {
        if (z == Cpos) {
            FindExtension (directory,Ext.SubString(1,z-1));
            Ext.Delete(1,z);
            Cpos = Ext.Pos(";");
            z=1;
            }
        else {
            if (z == Ext.Length())
                FindExtension (directory,Ext.SubString(1,z));
            }
        z++;
        } while (z!='/0');
    }
//
WIN32_FIND_DATA filedata ;  // Structure for file data
HANDLE filehandle ;         // Handle for searching

String dir = directory + "*.*" ;
filehandle = FindFirstFile ((directory + "*.*").c_str (), &filedata) ;
if (filehandle != INVALID_HANDLE_VALUE) {
    do {
        if ((filedata.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) != 0
           && String (filedata.cFileName) != "."
           && String (filedata.cFileName) != "..") {
            FindFilesInDirectory (directory + filedata.cFileName + "\\",
extenzion) ;
            }

        Application->ProcessMessages () ;
        } while (FindNextFile (filehandle, &filedata)) ;
    FindClose (filehandle) ;
    }
if (filehandle)
    FindClose (filehandle) ;
Application->ProcessMessages () ;
}
//---------------------------------------------------------------------
void TForm1::FindExtension (const String path, const String extension)
{
WIN32_FIND_DATA filedata ;  // Structure for file data
HANDLE filehandle ;         // Handle for searching
TListItem *li;
filehandle = FindFirstFile ((path + extension).c_str (), &filedata) ;
if (filehandle != INVALID_HANDLE_VALUE) {
    do {
        if (filedata.dwFileAttributes != FILE_ATTRIBUTE_DIRECTORY) {
            li = ListView1->Items->Add () ;
            li->Caption = path + filedata.cFileName ;
            li->SubItems->Add (String (filedata.cAlternateFileName)) ;
            Application->ProcessMessages () ;
            }
        } while (FindNextFile (filehandle, &filedata)) ;
    FindClose (filehandle) ;
    }
if (filehandle)
    FindClose (filehandle) ;
}