Klassen aus Vaterklassen erben lassen

[katika90]

Hay Community, wieder mal habe ich ein Problem:

Ich habe die Klasse Punkt und die Klasse Strich, nun möchte ich die Klasse Strich aus der Klasse Punkt erben lassen.

Die Klasse Punkt hat folgende Attribute: visible:boolean, xpos:integer, ypos:integer und Bild:TImage
Die Klasse Strich soll diese Attribute erben und zusätzlich noch diese hier bekommen: xpos2:integer, ypos2:integer, Farbe:TColor;
Die Klasse Punkt hat folgende Methoden: create(image:Timage);setpos(xpos:integer,ypos:inte ger); loeschen(); zeichnen();

Könnt ihr mir sagen wie man das mit delphi implementiert?

Danke im Vorraus
Katika