Invalid Pointer Operation bei Dispose!

[Stillmatic]

Also meine Dispose Prozedur sieht so aus!

procedure DisposeList;
var temp : PSongs;
begin
While Liste <> nil do
begin
temp := Liste;
Liste := temp^.Next;
Dispose(temp);
end;
end;

Die Liste ist eine einfach verkettete Liste mit ^.next und einer ^.InfoKomponente!