procedure NewTimerSecs(var ET : EventTimer; Secs : LongInt);
Initializes a timer that will expire in the specified number of seconds.
This routine is identical to NewTimer except that the time-out period is expressed in terms of seconds rather than milliseconds.
See also: ElapsedTime, NewTimer, RemainingTimeInSecs, TimerExpired