Парсер XMl в Delphi

[RusExcellent]

Столкнулся такой проблемой.
Мне нужно сделать парсер XML документа и отобразить его в фельфе в виде древа TTreeView. Это надо на работе, тут есть только базовая утилита как TXMLDocument в самой делфе, а с ней я не знаком.
Заранее спасибо


Исходник XML вложил

[RusExcellent]

мне нужно отобразик только узлы в древе. Кто знает помогите пожалуйста

[RusExcellent]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc;

type
TForm1 = class(TForm)
Edit1: TEdit;
XMLDocument1: TXMLDocument;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
XMLDocument1.LoadFromFile('C:\Docum ents and Settings\KurashinKV\Рабочий стол\Исходники\2 Ноября\11.xml');
XMLDocument1.Active := true;
Edit1.Text := XMLDocument1.DocumentElement. ChildNodes.Nodes[1].Text;
XMLDocument1.Active := false;
end;

end.


Пришел к такому коду. однако что то не так. Есть у когонибудь мысли?