Новые листы в одном окне [Delphi 7]

[_fynjy_]

всё сделал, строчка Parent:=sPageControl1.Pages[sPageControl1.TabIndex]; была лишней

[HyperZen]

var
  Form1: TForm1;
  i: Integer;

implementation

{$R *.dfm}

procedure TForm1.btnCreateClick(Sender: TObject);
var
  Sheet: TTabSheet;
  REdt: TRichEdit;
begin
  Sheet:= TTabSheet.Create(pgcTest);
  Sheet.Parent:=pgcTest;
  Sheet.PageControl:=pgcTest;
  Sheet.Caption:='Вкладка № ' + IntToStr(i);

  Inc(i);

  REdt:=TRichEdit.Create(Sheet);
  REdt.Parent:=Sheet;
  REdt.Align:=alClient;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i:=1;
end;