webbrowser使用有关问题

procedure TfromMain.spbtnTVClick(Sender: TObject);
var
  Url: string;
begin
  Url := 'http://tv.sohu.com/hdtv/'
  if Url <> '' then WebBrowser2.Navigate(Url);
end;

procedure TfromMain.WebBrowser2StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
  FNewUrl := Text;
end;

procedure TfromMain.WebBrowser2NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  Cancel := True;
  ppDisp := WebBrowser2.Application;
  WebBrowser2.Navigate(FNewUrl)
end;