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

      with TTabSheet.Create(Self) do
        begin
          PageControl := PageControl1;
          PageControl1.Left := 5;
          PageControl1.Top := 370;
          Caption := ' Adresse ';
          PageControl1.TabIndex := 1;
          PageIndex := 1;
        end;					

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

var
  NewTabSheet: TTabSheet;
begin
  NewTabSheet := TTabSheet.Create(Self);
  NewTabSheet.PageControl := PageControl1;
  NewTabSheet.Caption := 'Adresse';
  NewTabSheet.PageControl.TabIndex := NewTabSheet.TabIndex;
  GroupBox1.Parent := NewTabSheet;