БД из IBexpert в XML документ

 if( OpenDialog1->Execute() )
 {
 
_di_IXMLgazprom_ingenersType gazprom_ingeners = Getgazprom_ingeners(XMLDocument1);
ListView1->Items->Clear();
for (int i=0; i < gazprom_ingeners->Count; i++ )
{
ListView1->Items->Add();
 
ListView1->Items->Item[i]->Caption = gazprom_ingeners->ingener[i]->name;
ListView1->Items->Item[i]->SubItems->Add(gazprom_ingeners->ingener[i]->year);
ListView1->Items->Item[i]->SubItems->Add(gazprom_ingeners->ingener[i]->sex);
ListView1->Items->Item[i]->SubItems->Add(gazprom_ingeners->ingener[i]->exp_companies);
ListView1->Items->Item[i]->SubItems->Add(gazprom_ingeners->ingener[i]->education);
ListView1->Items->Item[i]->SubItems->Add(gazprom_ingeners->ingener[i]->city);
ListView1->Items->Item[i]->SubItems->Add(gazprom_ingeners->ingener[i]->street);
ListView1->Items->Item[i]->SubItems->Add(gazprom_ingeners->ingener[i]->home);
ListView1->Items->Item[i]->SubItems->Add(gazprom_ingeners->ingener[i]->room);
ListView1->Items->Item[i]->SubItems->Add(gazprom_ingeners->ingener[i]->phone);
ListView1->Items->Item[i]->SubItems->Add(gazprom_ingeners->ingener[i]->nationality);
ListView1->Items->Item[i]->SubItems->Add(gazprom_ingeners->ingener[i]->marital_status);
}
}}