Возникла новая задача с парсингом. Напишу здесь же

Имеется приблизительно следующий код html-страницы:
Код:
<page>EXAMPLE1</page>
<page>EXAMPLE2</page>
<page>EXAMPLE3</page>
<page>EXAMPLE4</page>
Цель: записать все значения EXAMPLE в мемо\лист и т.п.
Делаю так:
Код:
s:=IdHTTP1.Post('http://site.ru/',p);
g:=copy(s,pos('<page>',s)+length('<page>'),pos('</page>',s)-pos('<page>',s)-length('<page>'));
и естественно ничего не получаю. Такой пример срабатывает только при наличии единственного тега <page>, а тут их несколько.