К форме из примера 1 добавьте TStatusBar. 
Свойство TStatusBar.SimpleText установите True. 
Теперь добавьте следующие методы для обработки событий WebBrowse TitleChange и StatusTextChange:
procedure TForm1.WebBrowser1TitleChange(Sender: TObject; const Text: WideString);
begin
 Caption := Text;
end;

procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject; const Text: WideString);
begin
 StatusBar1.SimpleText := Text;
end;