TWebBrowser. Отображать в одном окне.

[Ponomar]

Здравствуте!
Необходимо, чтобы в TWebBrowser всё открывалось в одном и том же окне.
Это у меня получилось с двумя ВебБраузерами.
Проблема в том, что с этим кодом сервер не видит откуда я пришёл(например с какого поисковика).
А мне нужно, чтобы видел. Нужен совет или код. Спасибо.
Delphi 6

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := Webbrowser2.ControlInterface; 
end;

procedure TForm1.WebBrowser2NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := Webbrowser1.ControlInterface;
end;

procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin 
WebBrowser1.Navigate(URL);
Cancel:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://google.ru/');
end;