modified TList ctor