Ich war mal so dreist und habe deine
Unit etwas angepasst. Kannst es ja falls du magst übernehmen.
Die wichtigste "Neuerung" ist das implementieren des "Singleton Designpatterns".
Ich persönlich mag globale Variablen nicht - daher habe ich mal diesen "Umweg" implementiert.
Gruß
Reli