diff --git a/designer/changeclassdialog.pas b/designer/changeclassdialog.pas
index 455a74a397..d616f8a13e 100644
--- a/designer/changeclassdialog.pas
+++ b/designer/changeclassdialog.pas
@@ -384,7 +384,7 @@ var
   procedure AddAncestor(CurClass: TClass);
   begin
     if CurClass=nil then exit;
-    List.Insert(0,CurClass.ClassName);
+    List.Add(CurClass.ClassName);
     AddAncestor(CurClass.ClassParent);
   end;