ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Народ, оч нужен код немного видоизменённого парсера, теперь текстовый файл имеет вид:

Код:

<?xml version="1.0" encoding="UTF-8"?>
<resource-lists xmlns="urn:ietf:params:xml:ns:resource-lists">
  <list name="new-group">
    <display-name>Kill List</display-name>
    <entry uri="sip:74933193454@sipnet.ru">
      <display-name>Фомин</display-name>
    </entry>
    <entry uri="sip:74952595438@sipnet.ru">
      <display-name>Лена</display-name>
    </entry>
    <entry uri="sip:78616722508@sipnet.ru">
      <display-name>Глазастый</display-name>
    </entry>

Ну и т.д.. В теге entry содержится номер жертвы и название.
Нужно отпарсить до вида:
Жертва: Фомин. Телефон: 74933193454
Жертва: Лена. Телефон: 74952595438
Жертва: Глазастый. Телефон: 78616722508

Попытался сам отмодифицировать имеющийся код, да где уж мне...