Операции со StringGrid

void __fastcall TForm6::Button3Click(TObject *Sender)
{
TXMLDocument *XMLDocument = new TXMLDocument(this);
try
  {
    XMLDocument->Active = true;
    XMLDocument->Encoding = "UTF-16";
    XMLDocument->Options = XMLDocument->Options << doNodeAutoIndent;
 
    _di_IXMLNode nodElement = XMLDocument->CreateElement(L"data", L"");
    XMLDocument->ChildNodes->Add(nodElement);
    for (int i = 0; i < StringGrid1->RowCount; i++)
    {
    IXMLNode *nodNew = XMLDocument->ChildNodes->Last()->AddChild(L"user");
 
    String name=StringGrid1->Cells[0][i+1];
    nodNew->SetAttribute("name", name);
    String vid=StringGrid1->Cells[1][i+1];
    nodNew->SetAttribute("vid", vid);
    String ves=StringGrid1->Cells[2][i+1];
    nodNew->SetAttribute("ves", ves);
    String sreda=StringGrid1->Cells[3][i+1];
    nodNew->SetAttribute("sreda", sreda);
    String sem=StringGrid1->Cells[4][i+1];
    nodNew->SetAttribute("sem",sem);
    }
    XMLDocument->SaveToFile("База рыб.txt");
    MessageBox(0,"Сохранение завершено!!!","Успешно.",MB_OK);
 }
 __finally {delete XMLDocument;}
}

void __fastcall TForm6::Button4Click(TObject *Sender)
{
TXMLDocument *XMLDocument =new TXMLDocument(this);
try
 {
    XMLDocument->Active = true;
    XMLDocument->Encoding = "UTF-16";
    XMLDocument->Options = XMLDocument->Options << doNodeAutoIndent;
    XMLDocument->LoadFromFile("База рыб.txt");
    IXMLNode *nodRoot = XMLDocument->DocumentElement;
 
    IXMLNode *nodElement;
    int n=nodRoot->ChildNodes->Count;
    StringGrid1->RowCount=1;
 
        for (int i = 0; i < n; i++)
        {
            nodElement = nodRoot->ChildNodes->Nodes[i];
            String name = nodElement->GetAttribute("name");
            StringGrid1->Cells[0][i+1]=name;
            String vid = nodElement->GetAttribute("vid");
            StringGrid1->Cells[1][i+1]=vid;
            String ves = nodElement->GetAttribute("ves");
            StringGrid1->Cells[2][i+1]=ves;
            String sreda = nodElement->GetAttribute("sreda");
            StringGrid1->Cells[3][i+1]=sreda;
            String sem = nodElement->GetAttribute("sem");
            StringGrid1->Cells[4][i+1]=sem;
            StringGrid1->RowCount++;
        }
 
    StringGrid1->FixedRows=1;
    StringGrid1->RowCount--;
    MessageBox(0,"Загрузка завершена!!!","Успешно.",MB_OK);
 }
 __finally{ delete XMLDocument; }
}