Ощибка при попытке заменить компонент

[ogg]

Здравствуйте.
Проблема в том , что при замене компонента вылетает ошибка:

Исходный код:

procedure TForm1.Button1Click(Sender: TObject);
VAR
ts : TTabSheet;
wb : TWebBrowser;
begin
ts:= TTabSheet.Create(Self);
ts.PageControl:= PageControl1;
ts.Visible:= True;
ts.Caption:= IntToStr(PageControl1.PageCount); // Ну тут сам напишеь какой надо текст
wb:= TWebBrowser.Create(ts);
TWinControl(wb).Parent:= ts; // Тут мы говорим, что WebBrowser - это типа стандартный виндовый компонент, что позволяет установить родительское окно.
wb.Align:= alClient;
wb.Visible:= True;
PageControl1.ActivePageIndex:= PageControl1.PageCount-1;
end;

Делаю я:

procedure TForm1.Button1Click(Sender: TObject);
VAR
ts : TspSkinTabSheet;
wb : TWebBrowser;
begin
ts:= TspSkinTabSheet.Create(Self);
ts.spSkinPageControl:= spSkinPageControl1;
ts.Visible:= True;
ts.Caption:= IntToStr(spSkinPageControl1.PageCou nt); // Ну тут сам напишеь какой надо текст
wb:= TWebBrowser.Create(ts);
TWinControl(wb).Parent:= ts; // Тут мы говорим, что WebBrowser - это типа стандартный виндовый компонент, что позволяет установить родительское окно.
wb.Align:= alClient;
wb.Visible:= True;
spSkinPageControl1.ActivePageIndex: = spSkinPageControl1.PageCount-1;
end;

Ошибка:

[Error] Unit1.pas(100): Undeclared identifier: 'spSkinPageControl'
[Error] Unit1.pas(107): Undeclared identifier: 'PageControl1'
[Error] Unit1.pas(107): Missing operator or semicolon
[Error] Unit1.pas(107): Statement expected, but expression of type 'Integer' found
[Error] Unit1.pas(112): Undeclared identifier: 'PageControl1'
[Error] Unit1.pas(112): 'THEN' expected but identifier 'ActivePageIndex' found
[Error] Unit1.pas(114): Missing operator or semicolon
[Error] Unit1.pas(114): Missing operator or semicolon
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

Подскажите пожалуйста в чём я не прав?

[Neeter]

Наверно, неверна вот эта строчка:

ts.spSkinPageControl:= spSkinPageControl1;

Надо так:

ts.PageControl := spSkinPageControl1;

Еще

TWinControl(wb).Parent:= ts; // Тут мы говорим, что WebBrowser - это типа стандартный виндовый компонент, что позволяет установить родительское окно.

Можно писать и так:

wb.SetParentComponent(ts);

[ogg]

Большое спасибо, всё великолепно работает.

[ogg]

Не стал заводить новую тему, у меня опять проблема.
Браузер работает со вкладками, я пытаюсь сделать так чтобы изменялас адресная строка.

scombobox1.Text := TWebbrowser(sender).LocationURL;

Всё работает Великолепно но только с первой вкладкой, при работе с последующими вкладками адресная строка остаётся из первой, не подскажете как это исправить(всю голову уже сломал).