How to reset a timer.

[John]

procedure MainLoop;
var
x: integer;
begin
MarkTime(x);
repeat
Checks;
If TimeFromMark(x) > 138000 then
Begin
CannonDecay;
end;
until(Not LoggedIn);
end;

That is the timer i need to reset, so when it hits 138000
It needs to reset the timer and continue the loop.
how can i do this?

[nokkasiili]

procedure MainLoop;
var
x: integer;
begin
MarkTime(x);
repeat
Checks;
If TimeFromMark(x) > 138000 then
Begin
CannonDecay;
MarkTime(x);
end;
until(Not LoggedIn);
end;
???

[John]

procedure MainLoop;
var
x: integer;
begin
MarkTime(x);
repeat
Checks;
If TimeFromMark(x) > 138000 then
Begin
CannonDecay;
MarkTime(x);
end;
until(Not LoggedIn);
end;
???
:duh:
LOL how did i not see that... Ty