Есть такой код

procedure GetUsers;
begin
 ...здесь код...
 WebBrowser1.Navigate(URL);
 ...здесь нужно подождать загрузки страницы...
 ...дальше код...
end;
Как дождаться загрузки? Пробовал циклами такими
while WebBrowser1.ReadyState = 4 do
 Application.ProcessMessages;
while WebBrowser1.ReadyState <> 4 do
 Application.ProcessMessages;
Но это очень грузит процессор.
Пробовал через OnDocumentComplete и OnBeforeNavigate2
тоже ничего не вышло. Не стабильно работает.
Подскажите пожалуйста как это можно сделать?

> это очень грузит процессор


Добавь в тело цикла строчку
sleep(0)

...
   Application.ProcessMessages;
   While WebBrowser1.Busy do
   begin
     sleep(0);
     Application.ProcessMessages;
   end;
...

Спасибо, помогло! :)
Искал такое же решение проблемы.