Как работать с XML в Delphi?

XMLDocument1.LoadFromFile('C:\Users\win\Desktop\2.xml');
XMLDocument1.Active := true;
Label1.Caption := VarToStr(XMLDocument1.DocumentElement.ChildNodes['page'].Attributes['num_Bilet']);
XMLDocument1.Active := false;

xmldocument1.XML.Text:=ansitoutf8(xmldocument1.XML.Text);

XMLDocument1.Active:=True;
//XMLDocument1.Encoding:= 'UTF-8';
XMLDocument1.Encoding:= 'windows-1251';

procedure TForm1.Button1Click(Sender: TObject);
begin
//Загружаем файл из папки программы. Можно указать другую папку.
xmldocument1.xml.LoadFromFile(getcurrentdir+'\2.xml');
//Активизируем документ.
xmldocument1.Active:=true;
//Выводим номер первого билета "1". exposition с номером 0, а первый page с номером 1,
//поэтому ChildNodes[1]. В нём num_Bilet, поэтому ChildNodes['num_Bilet'] и получаем текст.
label1.Caption:=xmldocument1.DocumentElement.ChildNodes[1].ChildNodes['num_Bilet'].Text;
//Выводим название билета "Билет 1". Поэтому title_Bilet.
//Чтобы отобразился русский текст переводим обратно в ANSI.
label2.Caption:=xmldocument1.DocumentElement.ChildNodes[1].ChildNodes['title_Bilet'].Text;
//Выводим текст первого вопроса "В каком случае работник, занятый на работах с вредными условиями труда, должен проходить периодические медицинские осмотры?"
//Первый тег vopros четвёртый, нумерация тегов начинается с 0, поэтому его номер 3, то есть ChildNodes[3]
//В него входит тег vop, поэтому childnodes['vop'].
label3.Caption:=xmldocument1.DocumentElement.ChildNodes[1].ChildNodes[3].childnodes['vop'].Text;
//Выводим текст вопроса второго билета "Действия персонала при пожарах в на производственных территориях..".
//Теперь тут второй тег page с номером 2, поэтому ChildNodes[2].
label4.Caption:=xmldocument1.DocumentElement.ChildNodes[2].ChildNodes[3].childnodes['vop'].Text;
//Деактивизируем документ.
xmldocument1.Active:=false;
end;