Отображение в таблице используя разделитель "

#include <memory>
 
#include "RegExpr.hpp"
#include <System.IOUtils.hpp>
 
 
void __fastcall TForm1::Button7Click(TObject *Sender)
{
    std::auto_ptr<TRegExpr> re(new TRegExpr);
    re->ModifierM = true;
    re->Expression = L"\\\"[^\\\"]+\\\"([^\\\"]+)\\\"\\s+([^\\\"]+)\\\"\\s+\\\"([^\\\"]+)\\\"\\s+(\\\"[^\\\"\\n]*\\\")*\\s*$";
 
    re->Compile();
    std::auto_ptr<TStringList> lst(new TStringList);
    String s = TFile::ReadAllText(ExtractFilePath(ParamStr(0)) + "t.txt", TEncoding::Unicode);
    int row = 1;
    if (re->Exec(s))
    do
    {
        StringGrid1->Cells[0][row] = IntToStr(row);
        for(int i = 1; i < 5; i++)
        {
            StringGrid1->Cells[i][row] = re->Match[i];
        }
        row += 1;
 
    } while (re->ExecNext());
}

Variant app, books, book, sheet;
    int MaxR, MaxC, BeginR, BeginC;
    BeginR = 3, BeginC = 1;
    app = CreateOleObject("Excel.Application");
    books = app.OlePropertyGet("Workbooks");
    books.OleFunction("Open", WideString(OpenDialog1->FileName));
    book = books.OlePropertyGet("item", 1);
    sheet = book.OlePropertyGet("WorkSheets", 1);
    MaxR = sheet.OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count");
    MaxC = sheet.OlePropertyGet("UsedRange").OlePropertyGet("Columns").OlePropertyGet("Count");
    String s_grd = "";
    //Перебираю строки Excel
    for(int i = BeginR; i <= MaxR; i++)
      {
      for(int j = BeginC; j <= MaxC; j++)
        {
        String s = sheet.OlePropertyGet("Cells").OlePropertyGet("Item", i, j).OlePropertyGet("Value");
        if(s.Trim().Length() == 0)
          {
          s_grd += "";
          }
          else
            {
         // s_grd += String().sprintf("\"%s\" ", s);
            s_grd += String().sprintf(L"\"%s\" ", s);
            }
         }
         // добавляю строчку в Стринглист
         word->Append(s_grd);
         s_grd = "";
      }
    // закрываю Excel
    app.OleProcedure("Quit");

String s = ....
if(j == BeginC)
{// первый столбец
  String s1;
  String s2;
  ... Здесь разбираем "s" одним из способов
  s_grd += String().sprintf(L"\"%s\" ", s1);
  s_grd += String().sprintf(L"\"%s\" ", s2);
}
else
{//остальные столбцы
.....
  s_grd += String().sprintf(L"\"%s\" ", s);
}

    String s = TFile::ReadAllText(ExtractFilePath(ParamStr(0)) + "ostatki//word.txt", TEncoding::Unicode);

[BCC32 Error] Unit20.cpp(116): E2090 Qualifier 'TFile' is not a class or namespace name
  Full parser context
    Unit20.cpp(39): parsing: void _fastcall TForm20::SpeedButton5Click(TObject *)
[BCC32 Error] Unit20.cpp(116): E2141 Declaration syntax error
  Full parser context
    Unit20.cpp(39): parsing: void _fastcall TForm20::SpeedButton5Click(TObject *)

#include <System.IOUtils.hpp>

[BCC32 Error] Unit20.cpp(9): E2209 Unable to open include file 'System.IOUtils.hpp'

    lst->SaveToFile(fname, TEncoding::Unicode);