Редактирование XML-playlist-а для Flash плеера

[Dj_SheLL]

Задача такова:прочесть атрибуты (выделенно в коде) в Edit по кнопке,там их поменять-редактировать и сохранить опять же по кнопке.
Возникли проблемы в связи незнанием работы с XML файлами.
Прочитал кучу статей и вот мои потуги...
Итак по плейлисту:
Есть вот такой XML плейлист

<?xml version="1.0" encoding="UTF-8"?>
<mp3 autoplay="no">
        <song location="mp3/adg3.com_crypticPsyche.mp" cover="3mp3/5.jpg" title="adg3.com - Cryptic Psyche"/>
        <song location="mp3/adg3.com_electroFreak.mp3" cover="mp3/6.jpg" title="adg3.com - Electro Freak"/>
        <song location="mp3/adg3.com_crypticPsyche.mp3" cover="mp3/5.jpg" title="adg3.com - Cryptic Psyche"/>
        <song location="mp3/adg3.com_electroFreak.mp3" cover="mp3/6.jpg" title="adg3.com - Electro Freak"/>
</mp3>

Нужно прочесть эти значения в TEdit,что-то подобное я пытался сделать:

XMLDocument1.Active:=true;
XMLDocument1.LoadFromFile(ExtractFilePath(Application.ExeName) + 'playlist.xml');
Edit1.Text:=VarToStr(XMLDocument1.DocumentElement.ChildNodes['song'].Text);
XMLDocument1.Active:=false;

Но эти потуги остались безуспешными.
Сохранение я предполагаю вот так,должно работать:

XMLDocument1.Active:=true;
XMLDocument1.SaveToFile(ExtractFilePath(Application.ExeName) + 'playlist.xml');
XMLDocument1.Active:=false;

,но как передать из Edit-ов в нужные "ячейки" я не знаю.

Надеюсь на вашу помощь!

[SolovejK]

  XMLDocument1.Active:=true;
  XMLDocument1.LoadFromFile(ExtractFilePath(Application.ExeName) + 'playlist.xml');   
  Edit1.Text:=VarToStr(XMLDocument1.DocumentElement.ChildNodes['song'].Attributes['location']); //так читаешь

  XMLDocument1.DocumentElement.ChildNodes['song'].Attributes['location'] := Edit2.Text; //так записываешь
  XMLDocument1.SaveToFile(ExtractFilePath(Application.ExeName) + 'playlist.xml');
  XMLDocument1.Active:=false;

[Dj_SheLL]

Спасибо большое!!!
Просто и наглядно! + в репу :-)
Остальное ясно,как.

[Dj_SheLL]

А вот ещё вопрос на засыпку!
Делаю вывод всего этого дела,пока с одним атрибутом в ListBox:

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
XMLDocument1.Active := true;
XMLDocument1.LoadFromFile(ExtractFilePath(Application.ExeName)+'playlist.xml');
for i:=0 to  XMLDocument1.DocumentElement.ChildNodes.Count do
begin
Listbox1.Items.Add(XMLDocument1.DocumentElement.ChildNodes[i].Attributes['location']);
end;
XMLDocument1.Active := false;
end;

Вначале почему-то пишет ошибку List index out of bounds (4),а потом выводит те данные,которые хочу.Не кто не знает случайно,как убрать эту ошибку?

И ещё при нажатии на кнопку сделал,чтобы выбранный элемент удалялся из ListBox:

procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 255 do
begin
if ListBox1.Selected[i] then
begin
ListBox1.DeleteSelected
end; end; end;

Тоже всё работает!Но достаёт эта назойливая ошибка.
Не могу узнать в чём причина!Подскажите пожалуйста!

[SolovejK]

Исправь эту строку:

for i:=0 to  XMLDocument1.DocumentElement.ChildNodes.Count-1 do