TWebBrowser 페이지 로딩완료시까지 대기하기

procedure WaitForWebLoding(Web: TWebBrowser);
begin
  while Web.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;
end;

TWebBrowser 에도 페이지가 로딩이 다 되면 떨어지는 이벤트가 있다.

하지만 이 것은 정상적으로 로딩이 다 되지 않아도 호출되거나, 2번 호출되는 등의 문제가 있다.

하지만 소개한데로 하면 완벽히(?) 로딩될때까지 대기한다.

단, Refresh로 페이지 새로고침을 했을경우에는 먹히지 않는다는점~