[san-46]

Код:

type
  TForm1 = class(TForm)
  ...
    Edit : TRichEdit;
    procedure PageControl1Change(Sender: TObject);
  ...
  end;

procedure TForm1.Button1Click(Sender: TObject);
var 
  ts : TTabSheet;
  RE : TRichEdit;
begin
  ts := TTabSheet.Create(SELF);
  ts.PageControl := PageControl1;
  ts.Caption := ''; //надпись
  RE := TRichEdit.Create(SELF);
  RE.Parent := ts;
  RE.Align := alClient;
  ts.Tag := Integer(RE);

  PageControl1.ActivePage := ts; //если надо
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  Edit := TRichEdit(PageControl1.ActivePage.Tag);
  //Edit - компонент на текущей закладке после переключения на нее
  //к нему и надо применять все акции (выделить, копировать, вставить...)
end;