[Gudzik11]

Помогите разобраться с парсингом
вот нашол пример

Код:

XMLDocument1.LoadFromFile('http://newyorg.myminicity.com/xml');
XMLDocument1.Active := true;
Edit1.Text := XMLDocument1.DocumentElement.ChildNodes['population'].Text;
Edit2.Text := VarToStr(XMLDocument1.DocumentElement.ChildNodes['bases'].Attributes['ind']);
Edit3.Text := VarToStr(XMLDocument1.DocumentElement.ChildNodes['bases'].Attributes['tra']);
Edit4.Text := VarToStr(XMLDocument1.DocumentElement.ChildNodes['bases'].Attributes['sec']);
Edit5.Text := VarToStr(XMLDocument1.DocumentElement.ChildNodes['bases'].Attributes['env']);
XMLDocument1.Active := false;

а мне надо свой xml распарсить пытаюсь это зделать так

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   XMLDocument1.LoadFromFile('1.xml');
   XMLDocument1.Active := true;
   Memo1.Text:=XMLDocument1.XML.Text;

   XMLDocument1.Active := false;
end;

но сразу выскакивает ошибка

"В текстовом комментарии обнаружен недопустимый знак"

подскажите пожалуйста как сделать правильно