Перенос из txt файла в StringGrid по столбцам

void __fastcall TForm1::N4Click(TObject *Sender)
{
 if(OpenDialog1->Execute())
{
TStringList* sl1;
  int i;
TStringList* sl= new TStringList();
sl->LoadFromFile(OpenDialog1->FileName);
for (i=0;i<sl->Count;i++)
{
 sl1=new TStringList();
  sl1->Delimiter=';';
  sl1->DelimitedText=sl->Strings[i];
  StringGrid1->Rows[i]->Assign(sl1);
 sl1->Free();
 sl1=NULL;
}
sl->Free();
}
}

#include <memory>
...
/*******************************************************************************
*                           ВАЖНЫЙ МОМЕНТ!!!                                   *
*  Надо знать, что именно содержится в файле: только данные или вместе с ними  *
*   хранятся и значения фиксированных ячеек. Это важно при загрузке данных в   *
*  StringGrid. Поэтому покажу оба варианта загрузки, с заголовками и без них.  *
*                                                                              *
*  Кроме это, необходимо знать, какой символ в файле является разделителем. В  *
*               своих примерах я использовал точку с запятой.                  *
*                                                                              *
*******************************************************************************/
 
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
//Случай, когда в файле содержатся только данные.
//Фиксированные ячейки оставляем пустыми
//Считали файл
  if(!OpenDialog1->Execute()) return;
  std::auto_ptr<TStringList> L (new TStringList);
  L->LoadFromFile(OpenDialog1->FileName);
  #define G StringGrid1
//Оформляем таблицу
  G->FixedRows = 1;
  G->FixedCols = 1;
  G->RowCount = G->FixedRows + L->Count;
  G->ColCount = 2;
//Определяем количество столбцов для каждой из строк и заполняем таблицу построчно
  for(int i = 0; i < L->Count; i++)
   {
      String s = L";" + L->Strings[i];
      int k = s.Length() - (StringReplace(s, ";", "", TReplaceFlags() << rfReplaceAll)).Length() + 1;
      if(k > G->ColCount) G->ColCount = k;
      G->Rows[i + G->FixedRows]->Delimiter = ';';
      G->Rows[i + G->FixedRows]->DelimitedText = s;
   }
/*//Если файл содержит заголовки фиксированных строки и столбца то изменяем цикл
  for(int i = 0; i < L->Count; i++)
   {
      int k = L->Strings[i].Length() - (StringReplace(L->Strings[i], ";", "", TReplaceFlags() << rfReplaceAll)).Length() + 1;
      if(k > G->ColCount) G->ColCount = k;
      G->Rows[i]->Delimiter = ';';
      G->Rows[i]->DelimitedText = L->Strings[i];
   }
*/
}

String s = L";" + L->Strings[i];

String s = ";" + L->Strings[i];