procedure TForm1.Button1Click(Sender: TObject);
var
TName : Tclass;
begin

ListBox1.Clear;

//要先注册类，才能使用GetClass


RegisterClasses([TButton,TEdit,TListBox,TRadioButton, TPanel]);
TName := GetClass(Edit1.Text);

while TName<>nil do
begin
ListBox1.Items.Add(TName.ClassName);
TName := TPersistentClass(TName.ClassParent);
end;
end;