如何获得TWebBrowser内网页的<title>与</title>间的内容？

Question

html原代码：
webbrowser.OleObject.document.documentelement.innerhtml自己从里面去找<title>.
s:=webbrowser.OleObject.document.documentelement.innerhtml;
for i:= 0 to length(s)-8 do
 begin
  if s[i]+s[i+1]+....+s[i+7] = '<title>' then 
    xxxxxxxxxxxxxxx
 end;

Answer 1

我试验了这样更简单写吧?      webbrowser.OleObject.document.documentelement.Title;
就是<title>与</title>间的内容谢谢：eaglesky(鹰长空)
                      ------海儿(Hier)　

Answer 2

以下是最简单的写法：
procedure TForm1.WebBrowser1TitleChange(Sender: TObject;
  const Text: WideString);
beginForm1.Caption :=Text:+'-'+'浏览器';end;