[Помогите!] Спарсить ссылки со страницы [Delphi]

[=PaLeTiZaToR=]

Здравствуйте.

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

Парс почты

Reg.expression:='"></a><a href="http://(.*?)/" title="';
if reg.exec(str) then
memo1.lines.Add(reg.match[1]);
Все это в цикле , и всеравно только первую

Нужно чтоб спарсил все 50 почт.
Прошу любой помощи

[R.A.Z.O.R.]

Вот тебе пример:

Reg.expression:='"></a><a href="http://(.*?)/" title="';
if reg.exec(str) then
repeat // повторяем
memo1.lines.Add(reg.match[1]);
until not Reg.ExecNext; // пока извлекается значение

[=PaLeTiZaToR=]

Цитата: Сообщение от R.A.Z.O.R. Вот тебе пример: Reg.expression:='"></a><a href="http://(.*?)/" title="'; if reg.exec(str) then repeat // повторяем memo1.lines.Add(reg.match[1]); until not Reg.ExecNext; // пока извлекается значение

Именно это и нужно было . Спасибо большое !