Pointer of Array of Pointer neues Prinzip

[Marcel2906]

Wie kann ich denn sagen er soll alles ausgeben bis er zum letzten kommt.
Ich habs so probiert, er gibt mir dann die 10 ersten aus, leider zeigt er vorher wieder eine Fehlermeldung...glaube ich hab das mit dem Pointer noch nicht ganz verstanden.

Delphi-Quellcode:

Procedure TForm1.OutList;
Var
   x: integer;
   Next: pEintrag;
Begin
   new(Next);
   LBOutNumber.Items.Strings[0] := IntToStr(first.Wert);
   Next := first.Nachfolger;
   For x := 1 To 10 Do Begin
      LBOutNumber.Items.Strings[x] := IntToStr(Next.Wert);
      Next := Next.Nachfolger;
   End;
End;