OnDocumentComplete или ожидание окончания загрузки

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.sait.ru/');
end;

// Тут я ввел данные, а ниже сделал клик по кнопке, которая загружает новую страницу
subent := (doc.getElementsByName('subent').item(0,0) as IHTMLInputElement);
subent.click();
// Ожидание загрузки страницы
// Работа с загруженной страницей

procedure TForm1.Button1Click(Sender: TObject);
var
  doc : IHTMLDocument3;
  inputHtml : variant;
begin
  WebBrowser1.Navigate('http://www.site.ru/');
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages(); // тут работает как надо
  doc := (WebBrowser1.Document as IhtmlDocument3);
  inputHtml := (doc.GetElementsByName('login').item(0,0) as IHTMLInputElement);
  inputHtml.Value := 'mylogin';
  inputHtml := (doc.GetElementsByName('password').item(0,0) as IHTMLInputElement);
  inputHtml.Value := 'mypass';
  inputHtml := (doc.GetElementsByName('vhod').item(0,0) as IHTMLInputElement);
  inputHtml.click(); // тут начинает загружать новаую страницу
  while WebBrowser1.ReadyState = READYSTATE_COMPLETE do Application.ProcessMessages(); // если тут поставить "<>" вместо "=", то работать не будет!
  while WebBrowser1.Busy do Application.ProcessMessages(); // без этого тоже работать не будет
  inputHtml := (doc.GetElementsByName('newinput').item(0,0) as IHTMLInputElement);
  inputHtml.Value := 'blabla';
end;

while WebBrowser1.ReadyState = READYSTATE_COMPLETE do Application.ProcessMessages();

while WebBrowser1.ReadyState = READYSTATE_COMPLETE do Application.ProcessMessages(); // если тут поставить "<>" вместо "=", то работать не будет!
  while WebBrowser1.Busy do Application.ProcessMessages(); // без этого тоже работать не будет