为什么我使用EmbeddedWb也不能自动关闭弹窗呢？在线等

我做了一个小测试，结果是不能自动关闭弹窗，代码如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, EmbeddedWB, StdCtrls;type
  TForm1 = class(TForm)
    EmbeddedWB1: TEmbeddedWB;
    Button1: TButton;
    function EmbeddedWB1ShowMessage(hwnd: Cardinal; lpstrText,
      lpstrCaption: PWideChar; dwType: Integer; lpstrHelpFile: PWideChar;
      dwHelpContext: Integer; var plResult: Integer): HRESULT;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}function TForm1.EmbeddedWB1ShowMessage(hwnd: Cardinal; lpstrText,
  lpstrCaption: PWideChar; dwType: Integer; lpstrHelpFile: PWideChar;
  dwHelpContext: Integer; var plResult: Integer): HRESULT;
var
Text: string;
Caption: PChar;
begin
  Caption :='EmbeddedWB Messagebox';
  text := lpstrText;
  plResult:=Windows.MessageBox(hWnd, Pchar(text), Caption,   dwType);
  Result := S_OK;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  EmbeddedWB1.Go('www.sina.com.cn');
end;end.
还有什么好的办法，请高手指点。分不够再加分。