StringList - Listenindex überschreitet das Maximum

[Sidorion]

Probier mal die zweite Funktion gegen Reintranz zu sichern.
Dies geht mit einer CriticalSection. Diese muss aber midestens 'Modulglobal' sein, also als Variable im implementation-Abschnitt definieren, im initialization Creieren und im finalization zerstören.
jetzt kannst Du als erste Anweisung MyCriticalSection.Enter machen und als letzte MyCriticalSection.leave.
Solche Fehler kommen vor, wenn während der Abarbeitung der Funktion die Funktion nochmals aufgerufen wird.