Открыть ссылку все в том же WebBrowser, а не в отдельном окне IE

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
uses
  System, 
  System.Windows.Forms,
  System.Net;
var w := new WebBrowser;
var bbr := new Form;
 
begin
bbr.WindowState := FormWindowState.Maximized;
w.Url := new System.Uri('http://www.google.ru/');
w.Dock := Dockstyle.Fill;
bbr.Controls.Add(w);
Application.Run(bbr);
 
end.

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
 
uses
  System.Windows.Forms,
  System.Net;
 
var
  url: string := '';
  w := new WebBrowser;
 
procedure LinkClicked(sender: Object; e: System.EventArgs);
begin
  var link: HtmlElement := w.Document.ActiveElement;
  url := link.GetAttribute('href');
end;
 
procedure MyDocumentCompleted(sender: object; e: WebBrowserDocumentCompletedEventArgs);
begin
  var links: HtmlElementCollection := w.Document.Links;
  
  foreach item: HtmlElement in links do
    item.AttachEventHandler('onclick', LinkClicked);
end;
 
procedure MyNewWindow(sender: Object; e: System.ComponentModel.CancelEventArgs );
begin
  var wb := sender as WebBrowser;
  wb.Navigate(url);
  e.Cancel := true;
end;
 
 
begin
  var myForm := new Form; 
  
  w.Url := new System.Uri('http://vk.com');
  w.Dock := Dockstyle.Fill; 
  
  w.NewWindow += MyNewWindow;
  w.DocumentCompleted += MyDocumentCompleted;
  
  myForm.Controls.Add(w);
  myForm.WindowState := FormWindowState.Maximized; 
  Application.Run(myForm);
end.