Delphi WebBrowser始终在当前窗口打开新网页

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch;
  var Cancel: WordBool);
begin
  PpDisp := WebBrowser2.Application; // 新的窗口先指向WebBrowser2
end;

procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
  const PDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  Str: string;
begin
  Str := string(URL);
  WebBrowser1.Navigate(Str); // 再指回WebBrowser1
  Cancel := True;
end;