[Booo]

В общем хочу просто пока поэксперементирвоать с tabsheet и pagecontrol .
вот значит код:

Код:

begin
  PageControl := TPageControl.Create(Self);
  PageControl.Parent := Self;
for i:=0 to pagecontrol.pagecount -1 do
if pagecontrol.pages [i].caption <> '1' then
  begin
  tabsheet:=ttabsheet.Create(self);
  tabsheet.caption:='1';
  tabsheet.PageControl:=pagecontrol;
  end;

Почему не создаеться tabsheet ?
изначально не существует ни одного tabsheet.