Не получается работа с компонентом PageControl

WebBrowser1.Navigate('http://mail.ru');
var
  ts : TsTabSheet;
  wb: twebbrowser;
  ppDisp: IDispatch;
begin
 //-----Создание странички
  ts := TsTabSheet.Create(sPageControl1);
  ts.ImageIndex := sPageControl1.PageCount;
  ts.Caption := IntToStr(sPageControl1.PageCount);
  ts.PageControl := sPageControl1;
  sPageControl1.ActivePage:=sTabSheet2;
  //-----Создание странички
  //---Наименовае +
  sTabSheet2.PageIndex := sPageControl1.PageCount - 1;
  // Show Close button on active tab
  sPageControl1.ActivePage.UseCloseBtn := True;
   //-------Создание веб браузер
    wb:=twebbrowser.Create(ts);
    TWinControl(wb).Parent:=ts;
    wb.Align:=alClient;
    ppDisp:=wb.DefaultDispatch ;
    //-------Создание веб браузер

i:integer;
begin
i:=spagecontrol1.ActivePageIndex+1;
(Form1.FindComponent('WebBrowser'+inttostr(i)) as TWebBrowser).Navigate(' [url]http://mail.ru');[/url]
end;

procedure TWebTabSheet.TitleChange(Sender: TObject;
  const Text: WideString);
begin
  Caption:= Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  (sPageControl1.ActivePage as TWebsTabSheet).Browser.Navigate(Edit1.Text);
end;