unit mReibungskugel; interface uses mKugel; type Reibungskugel = class(Kugel) procedure bewege; override; // der Dienst bewege ist geändert (gegenüber Kugel) end; implementation procedure Reibungskugel.bewege; begin zGeschwindigkeit := zGeschwindigkeit * 0.999; // neue Geschwindigkeit berechnen inherited Bewege; // bewege-Methode der Oberklasse (Kugel) aufrufen end; end.