TSearchRec Search;
			AnsiString Path = "C:\\Windows";
			if (FindFirst(Path + "\\*", faDirectory, Search) == 0) {
				do {
					if
					(Search.Name == "." || Search.Name == ".." )
						continue;
					if (Search.FindData.dwFileAttributes &
						FILE_ATTRIBUTE_DIRECTORY) {
						// Если это папка
						//
					}
					else {
						//копируем файл с новым именем
                                                CopyFile((Path+"\\"+Search.Name).t_str(),(Path+"\\"+newName).t_str(), 0);
                                                //Удаляем файл со старым именем
                                                //Запоминаем путь к файлу, который нужно удалить и после того как освободим Search удаляем.
					};
				}
				while (FindNext(Search) == 0);
				FindClose(Search);
			};