Uses OleCtrls, SHDocVw,mshtml
var
doc:IHTMLDocument2;
ElementGroup:IhtmlElementCollection;
HtmlItem:IHTMLElement;
begin
doc:=WebBrowser1.Document as IHTMLDocument2;
ElementGroup:=Doc.all.tags('TITLE') As IhtmlElementCollection;
HtmlItem:=ElementGroup.item(0,0) As IHtmlElement;
showmessage(HtmlItem.innerText);
end;