unit mFarbkugel; interface uses mSuM, mKugel; type Farbkugel = class(Kugel) constructor init(pAnfangH, pAnfangV: GanzeZahl; pGeschwindigkeit: Zahl; pRichtung: Zahl; pFarbe: GanzeZahl); // der Konstruktor erhält einen zusätzlichen Parameter end; implementation constructor Farbkugel.init(pAnfangH, pAnfangV: GanzeZahl; pGeschwindigkeit: Zahl; pRichtung: Zahl; pFarbe: GanzeZahl); begin inherited init(pAnfangH, pAnfangV, pGeschwindigkeit, pRichtung); hatStift.setzeFarbe(pFarbe); hatStift.setzeFuellmuster(GEFUELLT); self.zeichne; end; end.