1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
var
  Tabsheet: TTabSheet;
begin
  Tabsheet := Tabsheet.Create(nil); // <- auch nicht mit "Application"
  TabSheet.Parent := PageControl1;
  Tabsheet.Show;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

Procedure TForm1.Button1Click(Sender: TObject);
var tabsheet: TTabSheet;
begin
tabsheet := TTabSheet.Create(Self); //Self = MainForm
tabsheet.PageControl := form1.PageControl1;//
inc(Counter, 1); //Counter ist eine Integer Variable
tabsheet.Name := 'Blablabla' + Counter; 
end;					

1:

form1.PageControl1.Pages[i];//i ist der Index des Tabsheets					

1:
2:
3:

{ von } tabsheet.Name := 'Blablabla' + Counter;  

{ in } tabsheet.Name := 'Blablabla' + IntToStr(Counter);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var
ed:array[1..10] of TEdit;
a : integer;
begin
a := 1;
ed[a]:=tEdit.Create(self);
ed[a].Parent:=form1;
end;