TiXmlDocument doc;
   TiXmlDeclaration * decl = new TiXmlDeclaration( "1.0", "windows-1251", "yes" );
   doc.LinkEndChild(decl);
   TiXmlElement *str;
   TiXmlElement * element = new TiXmlElement( "Table1" );
   element->SetAttribute("Name", "Администрация");//Вот это первая запись
   element->SetAttribute("Glava", "0121");
   element->SetAttribute("Razdel", "01");
   //А что делать со следующей - как следующую запись прикрутить к этому же root'у не понятно

  TiXmlDocument doc;
   TiXmlDeclaration * decl = new TiXmlDeclaration( "1.0", "windows-1251", "yes" );
   doc.LinkEndChild(decl);
   TiXmlElement * root = new TiXmlElement( "Table1" );
   TiXmlElement *row;
   for(int i= 0 ; i< 1000 ; i++)
	{
	  AnsiString glava = IntToStr( 1020 +i);
	  AnsiString razdel  = IntToStr( 30 +i);
	  row = new TiXmlElement( "row" );
	  row->SetAttribute("Name", "Администрация");
	  row->SetAttribute("Glava", glava.c_str());
	  row->SetAttribute("Razdel", razdel.c_str());
	  root->LinkEndChild(row);
	}  
   doc.LinkEndChild(root);
   doc.SaveFile("test.xml");
   ShowMessage("Закончили");

  AnsiString CurDir = ExtractFilePath(Application->ExeName);
  AnsiString file = CurDir + "test.xml";
  TiXmlDocument doc(file.c_str());
  if(!doc.LoadFile())
	return;
  int i =  1 ;
  for(
	   TiXmlElement *pElem = TiXmlHandle( &doc).FirstChildElement( "Table1").FirstChildElement( "row").Element();
	   pElem ; 
	   pElem = pElem->NextSiblingElement( "row")
	)
	{
	   SG->Cells[ 1 ][i] = pElem->Attribute("Name");
	   SG->Cells[ 2 ][i] = pElem->Attribute("Glava");
	   SG->Cells[ 3 ][i] = pElem->Attribute("Razdel");
	   i++;
	}
  SG->RowCount = i;