Создание вкладки.

[mihali4]

Вот так:

var mycomp: TControl;
    i: Integer;
begin
  with PageControl1 do
      with TTabSheet.Create(Self) do
      begin
        PageControl:=PageControl1;
        TabVisible:=(PageIndex mod 2 = 0);
        Caption:='MyPage'+IntToStr(PageIndex);
      end;
mycomp:=TStringGrid.Create(self);
PageControl1.Pages[0].InsertControl(mycomp);
end;