Код после обновления браузера

WebBrowser1.Refresh; //îáíîâèòü
Memo1.Lines.Add(WebBrowser1.OleObject.Document.documentElement.innerText);

    //Ожидаем окончания загрузки страницы.
    while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
      Application.ProcessMessages;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Refresh; //обновляет нормально сразу
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
  begin
    Application.ProcessMessages;
    Memo2.Clear; //очистим и вывести обновленную страницу! (выводит старую страницу)
    Memo2.Lines.Add(WebBrowser1.OleObject.Document.documentElement.innerText);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Refresh;
 
  //Ждём.
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;
 
  //Теперь загрузка в WebBrowser1 завершена. И можно выполнять следующие действия.
  Memo2.Clear; //очистим и вывести обновленную страницу! (выводит старую страницу)
  Memo2.Lines.Add(WebBrowser1.OleObject.Document.documentElement.innerText);
end;

var
  Form1: TForm1;
  isLoad: Boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Refresh;
  isLoad := True;
end;
 
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if (isLoad = True) and (pDisp = (Sender as TWebBrowser).DefaultInterface) then
  begin
    Memo1.Lines.Text := WebBrowser1.OleObject.Document.documentElement.innerText;
    isLoad := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Btn : TButton;
begin
  Btn := Sender as TButton;
  Btn.Enabled := False
 
  try
    WebBrowser1.Refresh;
 
    //Ждём.
    while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
      Application.ProcessMessages;
 
    //Теперь загрузка в WebBrowser1 завершена. И можно выполнять следующие действия.
    Memo2.Clear;
    Memo2.Lines.Add(WebBrowser1.OleObject.Document.documentElement.innerText);
  finally
    Btn.Enabled := True;
  end;
end;