<div>
you could use the; gettickcount() function<br />
eq.,<br />
var<br />
tick: cardinal;<br />
...<br />
begin<br />
tick := gettickcount();<br />
..<br />
..<br />
tick := gettickcount - tick;<br />
...<br />
if tick&gt;=3000 then<br />
tick := tick - 3000;<br />
...<br />
showmessage(inttostr(tick)<wbr />);<br />
...
</div>


<div>
rfwoolf is almost right. The solution is to stop and restart the timer after setting a different interval. But not on the timer onTimer event, right when your application detects a condition that needs extra time for your process.<br />
I often use a procedure like this one to reset timers. Most of the time, I don't even change the interval, because I just need the same time allowed but from now on. Ex : when recieving data from a COM port, a time-out is usually not from the start of the message, but from the last character received.<br />

<pre><code class="code-1 nolinks" id="code-1290880"><span>procedure ResetTimer(aTimer:TTimer;RemainingTime:Cardinal=0);</span>
<span>begin</span>
<span> With aTimer do</span>
<span>  begin</span>
<span>   enabled:=False;</span>
<span>   if RemainingTime&gt;0 Then Interval:=RemainingTime;</span>
<span>   enabled:=True;</span>
<span>  end;</span>
<span>end;</span>
</code></pre>
</div>


<div>
<div class="content wysiwyg-content">
I have a data aquisition app that has a procedure that is continuously called by a timer every 3 seconds. Depending on the procedures execution, additional time is sometimes required for the procedure to complete (because of external variables) before its time for the timer to fire and execute it again. I could solve the problem by resyncronizing the timer as the procedure time requirement changes.<br />
<br />
Is there a way to extend, or change, the timer interval once the timer's been enabled?
</div>
</div>


I have a data aquisition app that has a procedure that is continuously called by a timer every 3 seconds. Depending on the procedures execution, additional time is sometimes required for the procedure to complete (because of external variables) before its time for the timer to fire and execute it again. I could solve the problem by resyncronizing the timer as the procedure time requirement changes.

Is there a way to extend, or change, the timer interval once the timer's been enabled?

How To Increase The Timer Interval After The Timer Is Already Started?

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.