Correct behavior: if VMT becomes NIL, RTE 219 must be generated as this happens if EXPVMT is not an ancestor of starting VMT

git-svn-id: trunk@34197 -

rtl/inc/generic.inc

@@ -858,7 +858,7 @@ begin
        if assigned(pobjectvmt(vmt)^.parent) then
          vmt:=pobjectvmt(vmt)^.parent^
        else
-         exit;
+         vmt:=nil;
        {$endif}
    RunError(219);
 end;