Dynamiczne tworzenie komponentów

Jak po kliknięciu buttona utworzyć nową zakładkę na PageControl, a w niej RichEdita i edita? Jak się odwoływac do tych komponentów?

procedure TForm1.Button1Click(Sender: TObject);
var
  NewTabSheet: TTabSheet;
  NewRichEdit: TRichEdit;
  NewEdit : TEdit;
begin
  NewTabSheet := TTabSheet.Create(PageControl1);
  NewTabSheet.Caption := 'Nowa zakladka';
  NewTabSheet.PageControl := PageControl1;

  NewRichEdit := TRichEdit.Create(Self);
  NewRichEdit.Parent := NewTabSheet;

  // Podobnie Edit itd..
end;

A jak odwołać się do jakiegoś zdarzenia np. edita?

TForm1 = class(TForm)
...
private:
 procedure op1(Sender:TObject);
...
end;

...

procedure TForm1.op1(Sender:TObject);
 begin
end;

...

procedure TForm1.tworz;
var
 E:TEdit;
 begin 
  E:=TEdit.Create(Form1);
  E.Parrent:=Form1;
  // Tutaj wsp i reszta
  E.OnChange:=op1;
end;