UNIT UnitB;

   INTERFACE {$classes+}

      TYPE
         Class1 = SUBCLASS OF NIL
                     Class1Id: Integer;
                     Class2Id, Class3Id: Integer;
                     FUNCTION Create(CrParam: Integer): Class1;
                     PROCEDURE Proc1;
                  END;

   IMPLEMENTATION

     METHODS OF Class1;

        FUNCTION Create{CrParam: Integer): Class1};
           BEGIN {Create}
           END; {Create}

        PROCEDURE Proc1;
           BEGIN {Proc1}
           END; {proc1}
     END;
END.

