Procedure kører i et tidsinterval

Brug en TTimer, den er ikke vildt go den some følger med delphi.
Men der er mange andre.

Du kan jo prøve delphi timmeren, bare set et interval som er i ms. og så Enabled := true.
Den har så en event som bliver kørt hver gang interval tiden er gået.