TabSheet zur Laufzeit erstellen klappt nicht

[Jens Schumann]

Hallo,
versuch es mal so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  TabSheet : TTabSheet;
begin
  TabSheet:=TTabSheet.Create(Self);
  TabSheet.Caption:='Tab '+IntToStr(PageControl1.PageCount+1);
  TabSheet.PageControl:=PageControl1;
end;

Quelle: Delphi-Hilfe