如何判断WebBrowser中的页面加载完成

WebBrowser.OnDocumentComplete :=  wb1DocumentComplete;

1 procedure TForm1.wb1DocumentComplete(ASender: TObject; const pDisp: IDispatch;
2   const URL: OleVariant);
3 begin
4   if wb1.ReadyState < READYSTATE_COMPLETE then 
5     //加载未完成
6   else
7     //加载完成 
8 end;