Парсинг строк из текстового файла

  String filter = "Текстовый документ (.txt) |*.txt";
  opnDlg->Filter = filter;
  opnDlg->Execute();
  edtMultPath->Text = opnDlg->FileName;
 
  char buf[128];
  char c;
  String str = "";
 
  String Path = edtMultPath->Text;
  FILE *pFile = fopen(Path.c_str(), "r");
 
  if(!pFile) return;
 
  fseek(pFile , 0 , SEEK_SET);
 
  while(!feof(pFile))
  {
 
       while(static_cast<char>(fgetc(pFile))!= '\t') 
       {
 
          fseek(pFile, 1 ,SEEK_CUR);
          c = (char)(getc(pFile));
          str+=c;
       }
 
       Memo1->Lines->Add(str);
  }
 
  fclose(pFile);

 if(opnDlg->Execute()) 
  Memo1->Lines-LoadFromFile(opnDld->FileName);

  TStringList *list = new TStringList;
  TStringList *list2 = new TStringList;
//  list->Delimiter = '\t';
  list->LoadFromFile(ExtractFilePath(ParamStr(0)) + "123.txt");
  for (int i = 0; i < list->Count; i++)
  {
    list2->CommaText = list->Strings[i];
    for (int j = 0; j < 4; j++)
      ShowMessage(list2->Strings[j]);
  }
  delete list;
  delete list2;

#include <memory>
#include <vector>
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  std::auto_ptr<TStringList> L (new TStringList);
  L->LoadFromFile("c:\\tmp\\111.txt");
  int R = L->Count, C = 4;
  std::vector< std::vector<int> > Matrix(R, std::vector<int>(C));
  for(int i = 0; i < R; i++)
   {
     std::auto_ptr<TStringList> Tmp (new TStringList);
     Tmp->Delimiter = '\t';
     Tmp->DelimitedText = L->Strings[i];
     for(int j = 0; j < Tmp->Count; j++)
      Matrix[i][j] = StrToInt(Tmp->Strings[j]);
   }
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
   std::auto_ptr<TStringList> L (new TStringList);
   L->LoadFromFile("c:\\tmp\\111.txt");
   StringGrid1->RowCount = L->Count;
   for(int i = 0; i < L->Count; i++)
    {
      StringGrid1->Rows[i]->Delimiter = '\t';
      StringGrid1->Rows[i]->DelimitedText = L->Strings[i];
    }
}