Не опознается обьект

constructor TWebsTabSheet.Create(AOwner: TComponent);
  var
  ts: TWebsTabSheet;
begin
  inherited Create(AOwner);
  FBrowser := TWebBrowser.Create(self);
  TWinControl(FBrowser).Parent := self;
FBrowser.Align := alClient;
(sPageControl1.ActivePage as TWebsTabSheet).Browser.Navigate('http://www.ya.ru'); Ругается на эту строчку
 
 
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, sLabel, sSkinManager, Buttons, Registry,
  ShellAPI, ActiveX, OleCtrls, SHDocVw, Jpeg, Menus, ComCtrls, sPageControl,
  sButton;
 
type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sPageControl1: TsPageControl;
    sTabSheet1: TsTabSheet;
    sTabSheet2: TsTabSheet;
    Shape1: TShape;
    Shape2: TShape;
    Num12: TsLabel;
    Image1: TImage;
    Num11: TsLabel;
    sLabel2: TsLabel;
    TheNumber1: TsLabel;
    siteName1: TsLabel;
    BitBtn1: TBitBtn;
    sButton1: TsButton;
    procedure Image1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   TWebsTabSheet = class(TsTabSheet)
  private
    ppdisp: IDispatch;
    FBrowser: TWebBrowser;
 
 
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property Browser: TWebBrowser read FBrowser;
 
   end;
  TSite = record
    SiteName : string[50];
    URLSite : string[100];
    PicNum : SmallInt;
  end;
 
  TSlots = record
    SlotNum : SmallInt;
 
end;
 
var
  Form1: TForm1;
  Sites : array[1..9] of TSite;
  ImageNums : array[1..9] of TSlots;
  myDLG : TForm;
  ts: TWebsTabSheet;
implementation
 
uses Unit3;
 
{$R *.dfm}
  function BrowseURL(const URL: string) : boolean;
var
   Browser: string;
begin
   Result := True;
   Browser := '';
   with TRegistry.Create do
   try
     RootKey := HKEY_CLASSES_ROOT;
     Access := KEY_QUERY_VALUE;
     if OpenKey('\http\shell\open\command', False) then
       Browser := ReadString('') ;
     CloseKey;
   finally
     Free;
   end;
   if Browser = '' then
   begin
     Result := False;
     Exit;
   end;
   Browser := Copy(Browser, Pos('"', Browser) + 1, Length(Browser)) ;
   Browser := Copy(Browser, 1, Pos('"', Browser) - 1) ;
   ShellExecute(0, 'open', PChar(Browser), PChar(URL), nil, SW_SHOW) ;
end;
 
//*********
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
var
  F : file of TSite;
  File1 : String;
  a,v : integer;
begin
  a := 1;
  AssignFile(F,'Sites.dat');
  File1 := 'Sites.dat';
  if not FileExists(File1) then
    Exit
  else
   begin
    Reset(F);
      try
        while not Eof(F) do
          begin
              Read (F, Sites[a]);
              a := a + 1;
          end;
        finally
          CloseFile(F);
        end;
    end;
      Shape2.Visible := True;
 
      Num11.Visible := True;
      Num12.Visible := True;
 
 
       for v := 1 to 9 do
            if Sites[v].PicNum <= 0 then
 
            else
             begin
              if v = 1 then
                begin
                  Shape2.Visible := False;
                  Num11.Visible := False;
                  Num12.Visible := False;
                  BitBtn1.Enabled := True;
                  Image1.Picture.LoadFromFile(IntToStr(v) + '.jpg');
                  siteName1.Caption := Sites[v].SiteName;
                end;
              if v = 2 then
 
end;
end;
 
 
procedure TForm1.Image1Click(Sender: TObject);
var
  theURL : string;
  s : string;
  ClickedOK: Boolean;
  ts: TWebsTabSheet ;
begin
 { ImageClicked(1,Form3,Form3.WebBrowser1.);}
  s := 'http://';
  theURL := Sites[1].URLSite;
  if Sites[1].PicNum < 1 then
    begin
      ClickedOK := InputQuery('Web Site Address',
               'Please enter the Web Site address', s);
      if ClickedOK then   { NewString contains new input string }
        begin
          if s = '' then
           Exit
          else
           begin
            Form3.Visible := True;
            Form3.WebBrowser1.Navigate(s);
           end;
        end;
    end
   else
    begin
  ts := TWebsTabSheet.Create(sPageControl1);
  ts.PageControl := sPageControl1;
  ts.Caption := 'New Page';
  sTabSheet2.PageIndex := sPageControl1.PageCount - 1;
  sPageControl1.ActivePage.UseCloseBtn := true  ;
    end;
end;
 
 
constructor TWebsTabSheet.Create(AOwner: TComponent);
  var
  ts: TWebsTabSheet;
begin
  inherited Create(AOwner);
  FBrowser := TWebBrowser.Create(self);
  TWinControl(FBrowser).Parent := self;
FBrowser.Align := alClient;
(sPageControl1.ActivePage as TWebsTabSheet).Browser.Navigate('http://www.ya.ru');
 
 
end;
 
 
 
destructor TWebsTabSheet.Destroy;
begin
  FBrowser.Free;
  inherited;
end;
 
 
procedure DeletePicture(const ImgNum1: Integer);
var
  FilePic : String;
begin
 with Sites[ImgNum1] do
    begin
     SiteName := '';
     PicNum := 0;
     URLSite := '';
    end;
  FilePic := IntToStr(ImgNum1) + '.jpg';
  DeleteFile(FilePic);
end;
 
 procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  DeletePicture(1);
  Image1.Picture.Bitmap.Empty;
  siteName1.Caption := '';
  Shape2.Visible := True;
  Num11.Visible := True;
  Num12.Visible := True;
  BitBtn1.Enabled := False;
end;
 
 
end.

 sPageControl1.ActivePage := sTabSheet2;
  (sPageControl1.ActivePage as TWebsTabSheet).Browser.Navigate('http://www.ya.ru');