Как открывать все страницы в одном WebBrowser?

procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.WebBrowser1.Navigate('google.ru');
end;

 Cancel:=true;

Procedure TFormX.WebBrowser1NewWindow3(ASender: TObject; Var ppDisp: IDispatch; Var Cancel: WordBool; dwFlags: Cardinal; Const bstrUrlContext, bstrUrl: WideString);
Begin
Cancel := True;
(ASender AS TWebBrowser).Navigate(bstrUrl);
End;

(ASender AS TWebBrowser).Navigate(bstrUrl);

(ASender AS EmbeddedWB).Navigate(bstrUrl);

WebBrowser1.Navigate(bstrUrl);

Procedure TFormX.BrowsersOpensLinksInSelfInsteadOfNewWindows(ASender: TObject; Var ppDisp: IDispatch; Var Cancel: WordBool; dwFlags: Cardinal; Const bstrUrlContext, bstrUrl: WideString);
Begin
Cancel := True;
If Not Assigned(ASender) Then
  Raise Exception.Create('ASender is not Assigned!');
 
If (ASender Is TsWebBrowser) Then // AlphaSkins
  Begin
  (ASender As TsWebBrowser).Navigate(bstrUrl);
  Exit;
  End;
 
If (ASender Is TEmbeddedWB) Then // EmbeddedWB
  Begin
  (ASender As TEmbeddedWB).Navigate(bstrUrl);
  Exit;
  End;
 
If (ASender Is TWebBrowser) Then // Default TWebBrowser
  (ASender As TWebBrowser).Navigate(bstrUrl)
Else
  Raise Exception.Create('ASender has unsupported Class!');
End;