* Patch from Colin Western to fix finding components in ancestors

git-svn-id: trunk@10584 -

rtl/objpas/classes/reader.inc

@@ -1470,7 +1470,7 @@ var
     // descendants of TComponent
     while ComponentClassType<>TComponent do begin
       FieldClassTable :=
-        PFieldTable((Pointer(RootComponent.ClassType)+vmtFieldTable)^)^.ClassTable;
+        PFieldTable((Pointer(ComponentClassType)+vmtFieldTable)^)^.ClassTable;
       if assigned(FieldClassTable) then begin
         for i := 0 to FieldClassTable^.Count -1 do begin
           Entry := FieldClassTable^.Entries[i];