Wie lösche ich eine komplette Liste? (Pointer)

[Wusel]

Naja das mit dem TList muss ich auch mal versuchen.
Wegen dem löschen von vorn nach hinten hab ich mir ne Procedur geschrieben. Wird bei der die ganze Liste gelöscht oder bleibt da zum Schluss was übrig?

Delphi-Quellcode:

  procedure DelWholeList
  begin
    while (pFirst <> nil) do
    begin
      p := pFirst;
      pFirst := pFirst^.Next;
      Dispose(p);
    end;
  end;