Как вытащить параметры из XML

[Бэлла]

Собственно в чом проблема. Мне надо получить слово сообщение 1 из вот этой XML:

<?xml version="1.0" encoding="utf-8"?>
<XML-ка сообщение 2="bla-bla"><Message_0>сообщение 1</Message_0></XML-ка>

Написала текст, он мне пишет в Edit всё тоже само, что и в Memo

var
  Form1: TForm1;
  doc: TNativeXml;
  i, i2: integer;
  per: TsdElement;

implementation

{$R *.dfm}

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  stream: TMemoryStream;
  S: String;
  B: TBytes;
  // NodList : TXmlNodeli
begin
  doc := TNativeXml.Create(nil); 
  doc.LoadFromStream(ARequestInfo.PostStream); 
  doc.XmlFormat := xfReadable; 
  Memo1.Text := doc.WriteToString; 
  doc.Root.NodeByName('Message_0');
  doc.Root.Nodes[0];// Здесь я хочу добраться до узла((
  Edit1.Text := doc.WriteToString;
  doc.SaveToFile('c:\1.xml');
  doc.Free;
end;

end.

[Лубышев]

Это не параметр а содержимое
http://programmersforum.ru/showthread.php?t=163777 в этой теме рассматривается (HTML и XML в принципе разницы нет)

[Бэлла]

а нативного примерчика у вас нету?

[Smitt&Wesson]

У меня есть класс - XMLParser, только он на С++.

[Бэлла]

не, си не хочу)))))))))))) Спасибо

[Бэлла]

Что делать? что я делаю не так

procedure TForm1.IdHTTPServer1CommandGet(ACon text: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
stream: TMemoryStream;
S: String;
B: TBytes;
// NodList : TXmlNodeli
begin
doc := TNativeXml.Create(nil); // пустой документ
doc.LoadFromStream(ARequestInfo.Pos tStream); // закрузка из потока
doc.XmlFormat := xfReadable; // читабельность
Memo1.Text := doc.WriteToString; // сторокка
//doc.Root.Nodes[0];
//doc.Root.NodeByName('Message_0');
Edit1.Text := doc.WriteToString;
doc.SaveToFile('c:\2.xml');
doc.Free;
end;

procedure TForm1.N1Click(Sender: TObject);
var
stream: TMemoryStream;
begin
Memo1.Clear;
stream := TMemoryStream.Create;
stream.LoadFromFile('c:\2.xml');
doc := TNativeXml.Create(nil);
doc.LoadFromStream(stream);
for i := 0 to doc.Root.NodeCount - 1 do
begin
with doc.Root.Nodes[i] do
begin
Memo1.Text := doc.Root.Value;
end;
end;

end;

Хочу вытащить значение
Memo1.Text := doc.Root.Value;
из нодэса
for i := 0 to doc.Root.NodeCount - 1 do
begin
with doc.Root.Nodes[i] do
А он мне не чего не возращает