Großes Danke an busybyte!
Meine Variante hat nicht immer das gemacht was ich wollte
also ich habe jetzt in dem obigen quelltext "if t mod 1000=0 then begin[...]end" eingefügt, aber jetzt ist noch weniger rhytmus drin.
ich hab die label anzeige unten gelassen aber das programm reagiert nicht jede sekunde. woran kann das liegen?