Как выполнить поиск по XML файлу и добавить к нему новый узел в Delphi?

[LexaL]

По файлу необходимо выполнить поиск и добавить нового <painter></painter> и <picture> </picture> и их атрибуты.
стуктура файла следующая:

<gallery>
<painter>
<name> ...</name>
<picture>
<nazvanie>....</nazvanie>
<yearcreation>.....</yearcreation>
</picture>
</painter>

<painter>
<name> ...</name>
<picture>
<nazvanie>....</nazvanie>
<yearcreation>.....</yearcreation>
</picture>
</painter>

</gallery>