Tcontrol的parent属性的问题，有点难度，望高人指教！(100分)

Tcontrol的祖先中是没有parent属性的，从Tcontrol才开始有这个东东。

我看过从Tcontrol->Twincontrol->Tbuttoncontrol->Tbutton的的各个Create方法，其中都没有对parent这个属性进行初始化的语句。

但是现在我在panel1里面放入放入一个button1，可以通过button1.parent.name可以发现button1的parent正是panel1。请问这是怎样实现的，源代码在哪个单元文件里可以看到？

panel是容器控件，将button加入panel，button就是panel的child，panel是button的parent。
可以文本方式查看窗体文件，点击右键，选View as Text。
object Form1: TForm1
Left = 192
Top = 107
Width = 870
Height = 640
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 204
Top = 108
Width = 329
Height = 213
Caption = 'Panel1'
TabOrder = 0
object Button1: TButton
Left = 80
Top = 88
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
end
end
end

“panel是容器控件，将button加入panel，button就是panel的child，panel是button的parent”

请问这是如何实现的？Delphi IDE隐藏了实现的细节吗？能找到实现源码看看吗？

虽然问题没有解决，但是还是结贴了！

接受答案了.