Tabsheet samt Inhalt zur Laufzeit erstellen

[buyden]

Hab's hinbekommen, einfach umbenennen und schon funzt's

Delphi-Quellcode:

procedure Tfrmmain.Button1Click(Sender: TObject);
var newsheet:ttabsheet;
    newframe:tframe1;
begin
   newsheet:=ttabsheet.Create(pcauftrag);
   newsheet.Caption:='neu'+ inttostr(pcauftrag.PageCount+1);
   newsheet.PageControl:= pcauftrag;
   NewFrame := TFrame1.Create(self);
   newframe.Name := 'tframe' + inttostr(pcauftrag.PageCount+1);
   NewFrame.parent := Newsheet;
end;

Schönen Dank an alle.