Цикл грузит процессор и жрет память.

[DIgorevich]

И снова привет!
Передо мной стоит задача загрузить в WebBrowser все комментарии ВКонтакте. Они подгружаются динамически, путем клика на ссылку "к предыдущим записям", если таковая имеется. Если таковой нет, следовательно, либо контент еще не подгрузился, либо уже загрузился целиком и больше подгружать нечего. Я вижу решение таким:

          repeat
            Application.ProcessMessages;
            if Pos('onclick="WComments.showMore(); return false;" id=wcomments_more_link style="DISPLAY: none"', Memo1.Text)=0 then
              begin
                ProgressBar1.Position:=ProgressBar1.Position+1;
                all:=WebBrowser1.OleObject.Document.All;
                for i:=0 to All.Length-1 do
                  begin
                    item:=all.Item(i);
                    s:=item.InnerText;
                    if pos('к предыдущим записям',s)<>0 then  item.Click();
                  end;
                HTMLDocument := form1.WebBrowser1.Document as IHTMLDocument2;
                Form1.Memo1.Text:=HTMLDocument.body.innerHTML;
              end;
            sleep(50);
          until
            Pos('onclick="WComments.showMore(); return false;" id=wcomments_more_link style="DISPLAY: none"', Memo1.Text)<>0;

Поиск в исходном коде страницы связан с тем, что надпись "к предыдущим записям" присутствует всегда, другой вопрос, что когда уже подгружать нечего, она сделана в неотображаемом диве. Код работает, но при этом память постоянно растет с каждым проходом. Грубо говоря, там, где надо "кликнуть" всего 6-7 раз диспетчер к концу показывает до 100 МБ используемой приложением памяти. Процессор также загружен до 50%.
Знающие люди, подскажите, пожалуйста, в чем моя ошибка или, если есть, предложите другой вариант. Спасибо!

[Utkin]

Application.ProcessMessages;

Для начала это можно и в for запихать, чтобы проверить что нагружает проц. Попробуй лог забабахать и отслеживать не растет ли длина у переменной all.

[Stilet]

Попробуй лог забабахать и отслеживать не растет ли длина у переменной all.

А я кстати об этом не подумал... Действительно может быть и такое.

[DIgorevich]

Не растет длина у переменной. В общем, плюнул на все и перешел на API ВКонтакте)