如何获得TWebBrowser里打开网页的标题？

Question

如何获得TWebBrowser里打开网页的标题？  
为什么我用LocationName获得的是空内容?  
代码如下:  
 
procedure  TForm1.Button1Click(Sender:  TObject);  
var  TabSheet:TTabSheet;  
       WebBrowser:TWebBrowser;  
begin  
       with  PageControl1  do  
       begin  
               TabSheet:=TTabSheet.Create(Self);  
               with  TabSheet  do  
               begin  
                       PageControl:=PageControl1;  
                       WebBrowser:=TWebBrowser.Create(Self);  
                       with  WebBrowser  do  
                       begin  
                               ParentWindow:=TabSheet.Handle;  
                               Navigate('http://...');  
                       end;  
                       Caption:=WebBrowser.LocationName;  
               end;  
       end;  
end;

Answer 1

procedure TForm1.WebBrowser1TitleChange(Sender: TObject;
  const Text: WideString);
beginend;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
  Doc: IHTMLDocument2;
begin
  Doc := WebBrowser1.Document as IHTMLDocument2;
  ShowMessage(Doc.title);
end;当然要在WebBrowser 下载完之后才行

Answer 3

运行出错，是不是因为我的程序中WebBrowser是动态创建的关系？还有其他方法吗？

Answer 4

还要判断
procedure TForm1.Button2Click(Sender: TObject);
var
  Doc: IHTMLDocument2;
begin
  Doc := WebBrowser1.Document as IHTMLDocument2;
  if Doc <> nil then ShowMessage(Doc.title);
end;