Procedimento para criar uma nova aba o Page control em tempo de execução Delphi

procedure  TForm1.CriaNovaAba(Dono: TPageControl);

var

  newtab: TTabSheet;

  rich: TRichEdit;

begin

  newtab:= TTabSheet.Create(Dono);

  rich:=TRichEdit.Create(Dono);

  newtab.PageControl:=Dono;

  with rich do

  begin

Name:='TXT'+inttostr(newtab.TabIndex);

Parent:=newtab;

Align:=alClient;

  end;

  Dono.ActivePage:=newtab;

end;