由类名获取父类delphi

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;