Proceduren in Klassen

[KahPee]

Hallo,

ich fange gerade an in Delphi mit Klassen zu arbeiten. Ich möchte Objekte zeichnen und diese Objekte auch abspeichern. Als erstes habe ich mir die nötigen Klassen deklariert:

Delphi-Quellcode:

Tfigure=class(Tobject)             
    Typ: Tobjecttyp;
    Penwidth: Integer;
  end;


  Tline=class(Tfigure)
    start: Tpoint;
    finish:  Tpoint;
    procedure draw;  //diese Prozedur zeichnet eine Linie
  end;

  Tcircle=class(Tfigure)
    mid: Tpoint;
    point:  Tpoint;
    procedure Draw;  //diese Prozedur zeichnet einen Kreis
  end;

  List: array of Tfigure;

Jetzt werden Daten in die Liste geladen:

Delphi-Quellcode:

list[1]:=Tcircle.create;
list[2]:=Tline.create;

Ich möchte nun das bei:
list[1].draw; ein Kreis gezeichnet wird
und bei
list[2].draw; eine Linie

Würde das bei dem obigen Prinzip klappen oder würden da Probleme wegen der Vererbung auftreten?

mfg KahPee