Jeffrey Richter Fiber Beispiel "Counter"

[Luckie]

Ich habe gerade das Beipiel zu Fibers von Jeffrey Richter aus seinem Buch Windows Programmierung für Experten nach Delphi übersetzt. Es funktioniert auch soweit, nur schließt es sich automatisch, wenn es fertig ist mit Zählen.

Hat jemand das Buch und die CD und kann mal gucken, ob das bei seinem Beispiel auch so ist? Ich denke eigentlich sollte es nicht so sein. Anbei mal mein Code, wenn den mal jemand bitte vergleichen könnte, wo mir da ein Fehler unterlaufen ist. Ich suche den Fehler jetzt schon zwei Stunden lang.