VB-->delphi(有关webbrowser)(35分)

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is WebBrowser1.Object) Then
Debug.Print "Document is finished loading."
End If
End Sub
这是msdn中关于vb的一段，请翻成delpgi的,谢谢！

是判断muti-frame是否全部下在完毕的VB例子。

哈哈！老凶给的分数虽然少了点，不过也解决了我的一个问题！哈哈，太好了,想不到这个问题还可以这么解决
如果没有if那句会ShowMessage FrameCount + 1次,现在只有一次.
procedure TForm1.WBDocumentComplete(Sender: TObject;
const pDisp: IDispatch
var URL: OleVariant);
begin
if pDisp = WB.ControlInterface then
ShowMessage('Document is finished loading');
end;

接受答案了.