{$u-}
PROGRAM TestInit; {$classes+}

   USES {$u TestInit/UnitD} UnitD, {$u TestInit/UnitC} UnitC, {comment1}
        {$u TestInit/UnitB} UnitB, {comment2}
        {$u TestInit/UnitA} UnitA; {comment3}

   VAR
      c2: class2;
      c3: class3;

   BEGIN
      c2 := class2.create;
      c3 := class3.create;
   END.

