Playlist mit Pointer

[pmc]

Hallo zusammen,

Ich bin grade dabei eine Playlist zu entwerefn die etwas mehr kann als normal......

ICh habe mir überlegt das ich die Playlist mit pointern machen will .... nur jetzt funktioniert es nicht so
wie es sollte obwohl ich es immer so gemacht habe und es funktionierte!!!

Hier der Quelltext :

Delphi-Quellcode:

type
  Z_PlayList = ^T_Playlist;
  T_PlayList = record
    Path   : String;
    Name   : String;
    Artist : String;
    Title  : String;
    format : integer;
    next   : Z_Playlist;
  end;

Das ist mein Record für die einträge -> next zeigt immer auf den nächsten eintrag

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var index,neu : Z_PlayList;
    fn : String;
    tag : T_IDTag;
begin
  if OD1.Execute then
  begin
    fn  := OD1.FileName;
    Tag := GetIDTag(fn,ID_Tag1);

    new(neu);
    neu.Path   := ExtractFilePath(fn);
    neu.Name   := ExtractFileName(fn);
    neu.Artist := Tag.Artist;
    neu.Title  := Tag.Title;
    neu.format := 0;
    neu.next   := nil;

    if PList = nil then PList := neu
                   else
                   begin
                     index := PList;
                     while index <> nil do
                     begin
                       index := index.next;
                     end;
                     index := neu;
                   end;
  end;
end;

Innehalb der While schlife bekomm ich jetzt immer nen fehler ausgespuckt (inkompatible typen T_PlayList und Z_PlayList)
und das obwohl beide variablen (index sowie index.next) vom typ Z_Playlist sind!?!?!?

Wo ist also der fehler?

MFG PMC