Einfach verkettete Listen

[Luckie]

Delphi-Quellcode:

procedure DeleteNextNode(Node: PNode);
var
  TempNode: PNode;
begin
  if Node.next <> nil then
  begin
    TempNode := Node.next;
    Node.next := Node.next.next;
    Dispose(TempNode);
  end;
end;

Fehlt mir noch das Löschen der ganzen Liste. Da habe ich noch keine rechte Idee.