[NumLock]

в обработчике OnBeforeNavigate2 у WebBrowser1 можно написать:

Код:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if WebBrowser1.ReadyState=4 then
  begin
    Cancel:=True;
    WebBrowser2.Navigate(URL);
  end;
end;