Creating a class at run time with an AncestorClass and a descendant Class name

I am trying to create a function that creates a class at runtime lie this:

function CreateDescentantClass( pcAncestorClass : TClass; const psDescendentClassName : String ): Class;


Result := psDescendentClassName of pcAncestorClass;


Is this possible? I am using Delphi Alexandria

Take a look here :