Die verkettete Liste

[Klaus01]

Delphi-Quellcode:

while (i < index) and (FCurrently <> nil) do
  begin
    if FCurrently <> nil then
        FCurrently := FCurrently.Next; //<-- keine AV
     inc(i);
  end;

irgendwo laufen Deine Index und die Anzahl der Elemente auseinander.

Grüße
Klaus