1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

  with TPanel.Create(Self) do
   begin
    Width:=NoteBook2.Width;
    Height:=NoteBook2.Height;
    Anchors:=[akLeft, akTop, akRight, akBottom];
    BevelInner:=bvLowered;
    BevelOuter:=bvRaised;
    BevelWidth:=2;
    BorderWidth:=1;
    Color:=clred;
    Name:='O_P'+IntToStr(N);
    visible:=true;
    Parent:=NoteBook1; // so wird das Notebook zum Parent, bis man umblättert.
    Left:=0;
    Top:=0;
   end;