UNIT UnitC; Intrinsic;

   INTERFACE {$classes+}

      TYPE
         Class3 = SUBCLASS OF NIL
                     FUNCTION Create: Class3;
                     PROCEDURE ProcA;
                     PROCEDURE ProcB;
                     PROCEDURE ProcC;
                  END;

   IMPLEMENTATION

     METHODS OF Class3;

        FUNCTION Create{: Class3};
           BEGIN {Create}
           END; {Create}

        PROCEDURE ProcA;
           BEGIN {ProcA}
           END; {ProcA}

        PROCEDURE ProcB;
           BEGIN {ProcB}
           END; {ProcB}

        PROCEDURE ProcC;
           BEGIN {ProcC}
              Class3.ProcB;
           END; {ProcC}
     END;
END.

