@Alle: Es würde mich prinzipiell mal interessieren, ob mein Beispiel auch auf anderen Systemen das Problem verlässlich nachbildet.
Ja, es zeigt es ganz gut (Win 10, 10.2.3).
Mit der Verwendung von procedure
TThread.Queue(AThreadProc: TThreadProcedure);
wird beim Zerstören des Threads alle Warteschlangen-Ereignisse entfernt - da dann hier Self verwendet wird - und man kommt nie bis zur Zahl 100 im Memo.
Oft kommt auch gar nichts an (das hat mich dann doch überrascht).
Wenn man es umschreibt und
class procedure TThread.Queue(const AThread: TThread; AMethod: TThreadMethod);
mit nil als ersten Parameter verwendet, dann arbeitet der Hauptthread noch alles ab.
Hier geht das natürlich und ist unkritisch, aber wehe, man hat richtigen Code und greift auf Ressourcen des Threads zu.
Vielen Dank, wieder was gelernt.
