Nachdem ich jetzt über eine Woche lang nichts am Projekt getan habe, fand ich den Fehler:
Delphi-Quellcode:
procedure TControlThread.OnlineThreadStopped(Sender: TObject);
// Thread freigeben
// und Anzahl der laufenden Threads aktualisieren
begin
ControlCriticalSection.Acquire;
Dec(ThreadCount);
ControlCriticalSection.Release;
(Sender
as TOnlineThread).Free;
end;
Wenn ich die Zeile
(Sender as TOnlineThread).Free;
entferne, läuft es so, wie gewünscht!
(Nur so als Hinweis, falls mal jemand vor dem gleichen Problem steht)