TForm1.Canvas nicht in procedure zu verwenden?

[pyromane]

So;
ich habe das "Laufen" der Ampel jetzt in die procedur Ampellaufen gepackt;
genauso, wie sie früher war.;
Bei Klick auf Auto wird der Timer gestartet, es passiert aber nur Mist;
bei Klick auf Abbrechen, läuft die Schaltung wie sie sein soll...;
da sie aber in der Endlosschleife until 1=2 steckt, kommt man nur noch per;
Taskmanager raus. ???
Mfg Pyromane