如何使一个动态创建组件的parent为另一个动态创建的组件哪？急需，谢谢！

Question

程序如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
  Tpanel.Create(self).name:='tp';
  with  TPanel(findcomponent('tp'))  do
  begin
    width:=300;
    height:=300;
    parent:=form1;
  end;
  Tlabel.Create(self).name:='lb';
  with  Tlabel(findcomponent('lb'))  do
  begin
    caption:='动态创建';
    parent:=TPanel(findcomponent('tp'));////
  end;
end;
  但parent:=TPanel(findcomponent('tp'))不起作用，请问如何解决哪？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  panel1: TPanel;
  label1: TLabel;
begin
  panel1 := TPanel.Create(self);
  with panel1 do
  begin
    caption := 'panel1';
    left := 100;
    top := 100;
    width := 300;
    height := 300;
    parent := form1;
  end;
  label1 := TLabel.Create(self);
  with label1 do
  begin
    caption := '动态创建';
    parent := panel1;
    left := 100;
    top := 100;
  end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  tp : Tpanel;
  lb : TLabel;
begin
//  Tpanel.Create(self).name:='tp';
  tp := Tpanel.Create(nil);
  with tp  do// TPanel(findcomponent('tp'))
  begin
    width:=20;
    height:=300;
    parent:=form1;
    align := alLeft;
  end;
//  Tlabel.Create(self).name:='lb';
  lb := TLabel.Create(nil);
  with  lb  do          //Tlabel(findcomponent('lb'))
  begin
    caption:='动态创建';
    parent:= tp;//TPanel(findcomponent('tp'));////
  end;end;