TNewInstance Delegate

type
 TNewInstance = function (Self: TClass): TObject;