Klassen selber schreiben

[xineohp]

oje, ich seh gerade du hast da noch mehr durcheinander geworfen:

Also es gibt grundsätzlich zwei Möglichkeiten ein Shape mit einer Geschwindigkeit zu versehen:
1. Du erweiterst TShape in dem du TMyShape davon ableitest (TMyShape = class(TShape)) (Das ergibt dann, das was ich im letzten Post beschrieb)
2. Du erstellst eine "neue" Klasse (TMyShape = class(TObject)) die dann eine Variable für das Shape-Objekt und eine für die Geschwindigkeit enthält.

Du hast anscheinend auf letzteres abgezielt und lediglich die Klasse falsch abgeleitet. Ich würde allerdings an deiner Stelle die erste Variante nehmen, das sie einfach eleganter ist(auch im Zugriff).