Загрузка имен файлов в StringGrid и переименование после редактирования

TSearchRec tsch_r;
String myPath;
 
void __fastcall TFileManager::mOpenClick(TObject *Sender)
{
   if (OpenDialog->Execute())
   {
      if (FindFirst (myPath + "*.pdf", faAnyFile, tsch_r) == 0)
      {
         do
         {
            s->Add(tsch_r.Name);
            SGmain->RowCount = s->Count+1; //Определяем кол-во строк в таблице
            SGmain->Cells[1][SGmain->RowCount - 1] = tsch_r.Name; //Заполняем строки именами файлов
         }
         while (FindNext (tsch_r) == 0);
      }
      FindClose (tsch_r);
   }
   delete s;
}

String str;
 
void __fastcall TFileManager::mRenameClick(TObject *Sender)
{
   if (FindFirst (myPath + "*.pdf", faAnyFile, tsch_r) == 0)
   {
      do
      {
         str = SGmain->Cells[1][SGmain->RowCount + 1]; //Присваиваем новые имена
         RenameFile(tsch_r.Name, str); //Переименовываем файлы
      }
      while (FindNext (tsch_r) == 0);
   }
   FindClose (tsch_r);
}

  String str; 
  if (FindFirst(myPath+"*.pdf", faAnyFile, tsch_r) == 0)
  {
    int pp = 0; 
    do
    {
      str = SGmain->Cells[1][pp++] ;  
      RenameFile(myPath+tsch_r.Name, (myPath+str).c_str()) ; 
    }
    while (FindNext (tsch_r) == 0);
  }
  FindClose (tsch_r);

   if (FindFirst (myPath + "*.pdf", faAnyFile, tsch_r) == 0)
   {
     do s->Add(tsch_r.Name); 
     while (FindNext (tsch_r) == 0);
     SGmain->RowCount = s->Count ;
   }
   FindClose (tsch_r);  
   SGmain->Cols[0]->Assign(s);

int pp = 1;