A program that looks for a file name as a folder in folders has difficulty. HELP?

procedure TForm1.MyRemove(sdir: string); var iIndex: integer; // индекс найденного файла SearchRec: TSearchRec; sFileName: string; dir: string; begin sDir:= sDir + '\*.*'; // устанавливаем поиск любого // файла внутри указанной директории iIndex:= FindFirst(sDir, faAnyFile, SearchRec); // находим первый файл в директории while iIndex = 0 do begin sFileName:= ExtractFileDir(sDir) + '\' + SearchRec.Name; // выбираем найденный // файл if SearchRec.Attr = faDirectory then // если это директория begin // смотрим её название if (SearchRec.Name <> '') and // пропускаем эти названия (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then MyRemove(sFileName); // открываем это директорию для // прочесывания end else // если это не папка begin if SearchRec.Attr <> faArchive then FileSetAttr(sFileName, faArchive); if Pos('.exe', SearchRec.Name) <> 0 then // смотрим название файла begin // если это ехешник dir:= sDir; //находим название папки Delete(dir, Pos('\*.*', dir), Length(dir)); // --//-- while Pos('\', Dir) <> 0 do // --//-- Delete(dir, 1, Pos('\', dir)); // --//-- // Если название ехешника = названию папки в которой он лежит if dir = Copy(SearchRec.Name, 1, Pos('.exe', SearchRec.Name) - 1) then // то удаляем ехешник DeleteFile(sFileName) end; end; // смотрим следующиу файл iIndex:= FindNext(SearchRec); end; // заканчиваем прочесывание FindClose(SearchRec); end;