TWebBrowser.navigate в цикле

[поБЕДА]

При вызове метода Navigate внутри "вечного" цикла конструкция:

while not (Application.Terminated) do
begin
  case intparam of
     0 : begin
            wb.navigate(urltext);
            while (WB.ReadyState <> READYSTATE_COMPLETE)
                     and not (Application.Terminated) do
            begin
               Application.ProcessMessages;
               Sleep(0);
            end;
            intparam:=1;
          end;
    1 : begiin
            procA;
            intparam:=0;
         end;        
end;

не работает. ProcA выполняется до выполнения wb.documentcomplate.
Что это? И как с ним бороться?

[volvo877]

Что это?

Это многофреймовая страничка.

И как с ним бороться?

Использовать не глюкодром в виде ReadyState <> READYSTATE_COMPLETE, а событие OnDocumentComplete WebBrowser-а, в котором ловить событие завершения загрузки для фрейма верхнего уровня.

[поБЕДА]

Спасибо volvo877 за внимание к моей проблеме.
С TWebBrowser раньше работать не приходилось.
В HTML я новичок, в страницах которые я пытаюсь загрузить тег
FRAME отсутствует. Для разбивки этих страниц используются теги
TABLE и DIV. По этому, если можно подробнее укажите на что обратить
внимание.

По видимому, кроме помещения TWebBrowser.Navigate() во вторичный поток и его
синхронизации, других решений не наблюдается. Но всё же интересно почему ожидать загрузку страницы вне цикла удается, а внутри цикла нет? И Readystate и
Busy вне цикла нормально отрабатывают.