Schon blöd. Aber da du in deinem obigen Besipiel ja auch Application.ProcessMessages verwendest, würde ich einfach an der Stelle eine Prozedur aufrufen und mir vorher GetTickCount merken. In der Prozedur prüfst du dann, ob x ms vergangen sind und führst ggf. deinen Code aus.