In dem du die Ausnahme behandelst mit einem try-except-Block. Tust du das nicht, wird die Ausnahme bis in das Application-Objekt weitergereicht und damit bist du aus der Schleife raus. Schöne ist es natürlcih vorher zu prüfen, ob die Datei existiert.
Und was ist mit der ersten Datei:
for i := 1 to str.Count - 1 do
Die StringListe fängt bei null an.
Zitat von
silentAMD:
die variable "sta" ist vom typ tstrings, deren einträge ordnerpfade enthalten
Was für eine Variable
sta? Ich hoffe du hast sie nicht mit TStringList instanziert und nicht als TStrings.