Fehlersuche bei Listen

[Tastaturkürzel]

Zwischendurch schonmal ein großes DANKE für eure Hilfe
hier kommt der Code:

Delphi-Quellcode:

PROCEDURE listeLaden(L:Listenzeiger);
var a,b,c,d,e:STRING;
    k,anz:INTEGER;
begin
  assignfile(test,'test.txt');
  reset(test);
  anz:=filesize(test);
FOR k:=0 TO (ANZ) DO
    BEGIN
      readln(test,a);
      readln(test,b);
      readln(test,c);
      readln(test,d);
      readln(test,e);
      FuegeHintenAn(a,b,c,d,e,l);
    END;
  closefile(test);
  kopf:=l;

  {ausgabeformular.TitelAUS.Items.Add(a);
  ausgabeformular.GenreAUS.Items.Add(b);
  ausgabeformular.JahrAUS.Items.Add(c);
  ausgabeformular.RegiseurAUS.Items.Add(d);
  ausgabeformular.SchauspielerAUS.Items.Add(e);}
end;

da fuegehintean benutzt wird, auch diese:

Delphi-Quellcode:

PROCEDURE FuegeHintenAn (Titel,Genre,Regisseur,Jahr,Schauspieler:STRING; VAR L : ListenZeiger);
VAR p,lauf : ListenZeiger;
BEGIN
     NEW(p);
     p^.Titel:=Titel;
     p^.Genre:=Genre;
     p^.Regisseur:=Regisseur;
     p^.Jahr:=Jahr;
     p^.Schauspieler:=Schauspieler;
     p^.Next:=NIL;
     IF IstListeLeer(L) THEN L:=p
     ELSE
     BEGIN
          lauf:=L;
          WHILE lauf^.Next<>NIl DO lauf:=lauf^.Next;
          lauf^.Next:=p
     END
END;