delphi CopyComponent动态复制控件组TabSheet，如何对对应的TabSheet组里的Memo进行操作？

Question

窗体里面有个 PageControl1.TabSheet1，里面有Memo，和Button
Button1的代码是：Memo1.Lines.Add('1111111');

我用 CopyComponent动态复制控件组PageControl1.TabSheet1
新复制出来的TabSheet(2)...TabSheet(N)，里面也有Memo，和Button
现在的问题是，点新复制出来的Button，不会对对应的TabSheet里的Memo进行操作，还是对原来的TabSheet1里的Memo1.Lines.Add操作，Button的代码要怎么写才会对对应的TabSheet里的Memo进行操作？
求高手指点！！

var
  a: TTabSheet;
  i: integer;
begin
  for i:= PageControl1.PageCount - 1 downto 1 do
   PageControl1.Pages[i].Destroy;
  for i:= 1 to SpinEdit2.Value - 1 do    //复制数量
   begin
    RegisterClasses([TTabSheet, TMemo, tbutton, tpagecontrol, tmap]);
    a := CopyComponent(TabSheet1, PageControl1, Self) as TTabSheet;
    //a.Caption := inttostr( gettickcount );
        //TabSheet(i)
    a.Caption := Format('窗口%d', [i+1]);
    UnRegisterClasses([TTabSheet, TMemo, tbutton, tpagecontrol, tmap]);
end;

以上代码复制出来TabSheet(2)...TabSheet(N)，求对对应的TabSheet里的Memo进行操作

Answer 1

https://zhidao.baidu.com/question/139450401.html