[XML] Как отсортировать данные в XML?

String Parse(String s, String value)
{
    int p = s.Pos(value);
    return s.SubString(p + value.Length(),
        PosEx("\"", s, p + value.Length() + 1) - p - value.Length());
}
 
// SortByData будет выглядеть также, за исключением второго параметра, передаваемого в Parse
int __fastcall SortByFile(TStringList* L, int i1, int i2)
{
    return CompareStr(Parse(L->Strings[i1], "File=\""), Parse(L->Strings[i2], "File=\""));
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TStringList> xml(new TStringList);
    xml->LoadFromFile(ExtractFilePath(ParamStr(0)) + "\\files\\xml.xml");
 
    String strHead = "", strFoot = "";
    bool is_header = true;
    std::auto_ptr<TStringList> part(new TStringList);
    for (int i = 0; i < xml->Count; i++)
    {
        String s = xml->Strings[i].Trim();
        if (xml->Strings[i].Trim().Pos("<ITEM") == 1)
        {
            is_header = false;
            part->Add(xml->Strings[i]);
        }
        else
            (is_header ? strHead : strFoot) += xml->Strings[i] + "\r\n";
    }
    part->CustomSort(SortByFile);
    part->Insert(0, strHead.Trim());
    part->Add(strFoot.Trim());
    // Сохраняем содержимое part
}