Programm stoppt

[Delphi.Narium]

Naja, sagen wir mal so: Da wird ein Timer verwendet. Ist das Timerinterval kürzer als die Zeit zum Abarbeiten der bei OnTimer aufgerufenen Routine, kann sowas schon passieren.

Bei der Nutzung von Timern mache ich im OnTimer als erstes immer ein Timer1.Enabled = false; und am Ende, sofern der Timer weiterlaufen soll, ein Timer1.Enabled := true; .

Dadurch erhöht sich jedoch defakto das Timerinterval um die Laufzeit der Timerroutine.

Eventuell suchst Du mal nach "überflüssigem" Code und entfernst ihn. Mir erschließt sich nicht, was z. B. ein image1.Top := image1.Top; bezwecken soll.