procedure TForm1.Button1Click(Sender: TObject);
var
  templabel:tlabel;
begin
  templabel:=tlabel.Create(application);
  templabel.Name := 'jh';
  templabel.Parent := form1;
  templabel.Enabled := true;end;procedure TForm1.Button2Click(Sender: TObject);
var
  tp:tlabel;
begin
  tp:=FindComponent('jh') as tlabel;
  showmessage (tp.name);
end;找不到!可是找一个静态建立的(托控件到窗口)就可以!为什么?