Destruktor für verkettete Liste

[Teesäufer]

Hallo zusammen,

ich bin mit Delphi leider noch nicht so ganz warm geworden. Als ich mir mal ein gutes Buch dazu kaufen wollte waren die alle nicht mehr im Handel. Keine Ahnung, warum.

Auf jeden Fall möchte ich eine verkettete Liste programmieren.

Delphi-Quellcode:

TListe = class
    private
    inhalt: string;
    next: Tliste;
    public
    constructor create(wert: string);
    destructor destroy; override;
    function gibmirinhalt: string;

  end;

Mit dem Destruktor habe ich noch meine Probleme. So sieht er momentan aus:

Delphi-Quellcode:

destructor TListe.destroy;
var loeschzeiger: TListe;
begin
  if next<>nil then
    next.destroy;
  inherited;


end;

Wenn ich das im Debugger verfolge stelle ich aber fest, dass nach dem Destroy die Elemente aber noch vorhanden sind. Was mache ich falsch?