наверно тему можно закрывать, не для обсуждения оставлю здесь пример того, как это делается в одну строчку и без регулярных выражений (код – трэш, для ознакомления only
)
Код:
procedure TForm1.scan2Click(Sender: TObject);
begin
output.clear;
// eat сожрать текст, до ... включительно
// read прочитать текст до ...; и сожрать включительно
// порядок имеет значение
omg_scan(input.text, omg_output, [eat('Участников:</b>'), read('из'), read('</div>'), eat('</center><a href='), read(' ><b>')]);
end;