Beeinflussen kannst du das nicht ... du könntest Höchstens das Intervall ändern, also statt bei 100 schon mit 1 starten
Delphi-Quellcode:
Begin
Timer.Enabled := False;
Timer.Intervall := 100;
...
Timer.Intervall := irgendwas;
Timer.Enabled := True;
End;
kannst ja die Zeit messen, die deine Prozedur gebraucht hat und diese dann abziehen.
(
Min(..., 1) ist dafür da, damit mindestens 1ms Dauer rauskommt und vorallem nichts negatieves)
Delphi-Quellcode:
Var Start: Integer;
Begin
Timer.Enabled := False;
Timer.Intervall := 100;
Start := GetTickCount;
...
// Dauer = GetTickCount - Start
Timer.Intervall := Min(100 - (GetTickCount - Start), 1);
Timer.Enabled := True;
End;