[Mike909]

может подойдет функция AdlibRegister :

Код:

 
AdlibRegister("Timer1", 1000) 
	sleep (3000) ; тестируем в течении 3 сек
	; основная 
	; программа
AdlibUnRegister("Timer1")
Exit

Func Timer1()
         Send ( "{1}" )
         ConsoleWrite('Timer 1')
EndFunc