Копирование и переименование папок, по правилам

WCHAR secondChar[] = { 'T', 'E' };
 
// curDirName путь к текущей папке для копирования
// dirToCopy в какой папке создавать новую
// level - уровень вложенности
 
void CopyDirectory(LPTSTR curDirName, LPTSTR dirToCopy, int level)
{
   int dirCount = 1;
 
   // цикл по папкам в curDirName
      // создаем в dirToCopy папку с именем 'S' + secondChar[level] + dirCount
      // вызываем найденной папки функцию CopyDirectory(<путь найденной папки>, <путь к созданной папке>, level + 1);
}
 
// пример первого вызова функции
// CopyDirectory(_T"D:\\Image", _T"D:\\MyNewImage", 0);

TStringList *sl;
 
AnsiString sixchar(int n)
{
int l;
AnsiString outstr;
AnsiString nstr=IntToStr(n);
AnsiString nulls="00000000";
l=nstr.Length();
outstr=nulls.SubString(1,8-l)+nstr;
return outstr;
}
 
void CopyDirectory(AnsiString DirFrom, AnsiString DirTo, int level)
{
int dirCount = 1,fileCount = 1;
AnsiString newdir, newfile;
TSearchRec sr;
if (FindFirst(DirFrom+"\\*.*", faAnyFile, sr) == 0)
{
 do
 {
 if (sr.Attr & faDirectory)  // если нашли папку
  {
  if (sr.Name!=".")
  if (sr.Name!="..")
   {
   newdir=DirTo+"\\"+sl->Strings[level]+sixchar(dirCount);
   CreateDir(newdir);
   CopyDirectory(DirFrom+"\\"+sr.Name, newdir, level+1);// Рекурсивный вызов
   dirCount++;
   }
  }
  else // если нашли файл
   {
   newfile=DirTo+"\\"+sl->Strings[level]+sixchar(fileCount)/*+".jpg"*/;
   CopyFile((DirFrom+"\\"+sr.Name).c_str(), newfile.c_str(), true);
   fileCount++;
   }
 }
 while (FindNext(sr) == 0);
 FindClose(sr);
}
return;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
sl=new (TStringList);
sl->Add("ST");
sl->Add("SE");
sl->Add("IM");
CopyDirectory("C:\\Image", "C:\\ImageNew", 0);
delete sl;
return;
}

Application->ProcessMessage();