This one works,
[pascal]
with TClass2(C.AddIt()).Create('dox') do
[/pascal]
But only partially, as FastMM informs about memory leaks from TClass1. :?