delphi无法读取动态生成的控件

在pagecontrol的tabsheet中动态生成TRichEdit:
var
TextBox:trichedit;
begin
textbox:=trichedit.Create(PageControl1.Pages[0]); //AOwer和parent为self的时候却可以被components读取到
TextBox.Parent:=PageControl1.Pages[0];
TextBox.Left:=2;
TextBox.Top:=5;
TextBox.Width:=200;
TextBox.Height:=200;
TextBox.Visible:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i:=0 to ComponentCount -1 do
begin
Memo1.Lines.Add(Components[i].Name); //无法读取richedit
end;
end;

这种动态生成的控件 是需要特殊的方式去读取的 显示查找对应的控制HANDEL 然后转换成对应的控件类型 才能有对应的操作

你好！ 在什么地方生成的动态控件？ 仅代表个人观点，不喜勿喷，谢谢。