{$u-}
program test;

 uses {$u test/classes} {$classes+} testclass;

 VAR
    c1: class1;
    c2: class2;
    c6: class7;

 begin
    c1 := class1(c2);

    c1.class1id := 1;
    c1.class2id := 2;
    c1.class3id := 3;
    c1 := class1.create(1);
    c1.proc1;

    c2.field1 := 1;
    c2.field2 := 2;
    c2.field3 := 3;
    c2 := class2.create;
    c2.proc1;
    c2.proc2;
    c2.proc3;
    c2.proc4;

    {$h-}
    WITH c2 DO
       BEGIN
       class1id := 4;
       field1 := 1;
       proc1;
       proc2;
       proc4;
       END;

    WITH c6 DO
       BEGIN
       class1id := 4;
       field1 := 1;
       proc1;
       proc2;
       proc4;
       procu;
       procv;
       procw;
       END;
 end.

