Вывод списка файлов из каталога в StringGrid

TSearchRec tsch_r;
String myPath;
AnsiString str;
int page;
TStringList*s=new TStringList;
 
void __fastcall TFileManager::mOpenClick(TObject *Sender)
{
   REmain->Lines->Clear(); //Очищаем поле RichEdit
   if (OpenDialog->Execute())
   {
      if (FindFirst (myPath + "*.pdf", faAnyFile, tsch_r) == 0)
      {
         do
         {
         str = tsch_r.Name;
         page = MyDllFunction(str.c_str()); //Получаем количество страниц
         REmain->Lines->Add(str.SubString(0,str.AnsiPos(".pdf")-1) + " : " + IntToStr(page));
         s->Add(str);
         SGmain->RowCount = s->Count+1; //Определяем число строк в таблице
 
         for (int J=1; J<SGmain->RowCount; J++)
         {
            SGmain->Cells[0][J] = J;
            SGmain->Cells[1][J] = str.SubString(0,str.AnsiPos(".pdf")-1);
            SGmain->Cells[3][J] = IntToStr(page);
         }
         }
         while (FindNext (tsch_r) == 0);
      }
      FindClose (tsch_r);
   }
   delete s;
}

         SGmain->RowCount = s->Count+1; //Определяем число строк в таблице
 
         SGmain->Cells[0][SGmain->RowCount - 1] = J;
         SGmain->Cells[1][SGmain->RowCount - 1] = str.SubString(0,str.AnsiPos(".pdf")-1);
         SGmain->Cells[3][SGmain->RowCount - 1] = IntToStr(page);