Hier mal eine überarbeitete Version...
- unnötige globale Variablen entfernt
- Komponentennamen vergeben
- Exit, Break, Continue, With-Blöcke entfernt
- Speicherleck entfernt
- Zeichentechnik korrigiert (Geschwindigkeit erhöht)
- fehlende Unit überflüssig gemacht
- Anchors gesetzt
- Ereignis-Methoden-Aufrufe überarbeitet
- nur einen Befehl pro Zeile (so kann man besser debuggen)