SetInterval(Milliseconds : Integer; CallbackMethod : String)
Периодическое выполнение метода

Функция SetInterval включает выполнение метода (вашей программы) с именем CallbackMethod каждые Milliseconds миллисекунд.

Что бы остановить периодическое выполнение метода, необходимо вызвать метод SetInterval с аргументами (0, '').

Метод указанный в аргументе CallbackMethod должен быть типа Procedure CallbackMethod;.

Пример:

Var
  n : Integer;
  
Procedure OnCreate;
Begin
  SetInterval(2000, 'Tick');
End;

// Эта функция будет выполняться каждые 2 секунды
Procedure Tick;
Begin
  Warning(ToStr(n) + ' ' + ToStr(Now));
  n := n + 1;
  If n>=20 Then SetInterval(0, 'Tick');
End;

© RTIT