{$u-}
program test;

 uses {$u simpletest/classes} testclass;

 var
   c1: class1;
   c2: class2;
   b: boolean;

 begin
   c1.proc1;
   c2.proc1;
   c2.proc2;
   c1 := class1.create;
   c2 := class2.create;
   c2 := class2(c1);
   b := inclass(c2, class2);
 end.

