Hallo Nils,
wenn
lbList eine ListBox-Referenz ist, dann sollte die Bedingung in Zeile 20 niemals den Wert
True annehmen. Der ItemIndex einer ListBox kann nur Werte im Bereich [-1..Items.Count-1] annehmen. Dies wird wahrscheinlich in Zeile 27 zum nächsten Fehler führen, weil du auf ein Element außerhalb des Felds
fFiles zugreifst.
Den nächsten Index erhältst du so:
Delphi-Quellcode:
with lbList do
if (Items.Count > 0) then
ItemIndex := Succ(ItemIndex) mod Items.Count;
Gruß Hawkeye