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

   memozaehler := 0;
   //memozaehler := memozaehler +1;
   with TTabsheet.Create(Self) do
   begin
        PageControl := Page;
        Caption := 'Neu';
        Fenster := TMemo.Create(self);
        Fenster.OnKeyPress:=MyKeyPress;
        Fenster.Parent := Page.Pages[pruefe];
        Fenster.Align := alClient;
        Fenster.Name:='Fenster'+ IntToStr(memozaehler);
        TMemo(Page.Pages[pruefe]).Show;
        zwischensave := Page.ActivePageIndex;
        TMemo(Page.ActivePage.FindChildControl('Fenster'+IntToStr(zwischensave))).Clear;
        TMemo(Page.ActivePage.FindChildControl('Fenster'+IntToStr(zwischensave))).ScrollBars := ssBoth;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.DoMakeNewTabWithMemo(einZaehler:Integer);
var aTab:TTabSheet;
      aMem:TMemo;
begin
  aTab:=TTabsheet.Create(Self);
  with aTab do
  begin 
    PageControl := Page; 
    Caption := 'Neu';
  end; // with Tab

  aMem:= TMemo.Create(self);
  with aMem do
  begin
     Parent:=aTab;
     OnKeyPress:=MyKeyPress; 
     Align := alClient; 
     Name:='Fenster'+ IntToStr(einZaehler); 
     Clear; 
     ScrollBars := ssBoth; 
     Show; 
  end; // with aMem
end; // TForm1.DoMakeNewTabWithMemo;


procedure TForm1.Button1Click(Sender:TObject);
var i:Integer;
begin
  for i:=1 to 5 do DoMakeNewTabWithMemo(i);
end;