> -- Евгений Темиргалеев писал(а):
> Вызывайте WinApi.Sleep напрямую.
## Код:
```
PROCEDURE Test* ();
VAR i:INTEGER;
BEGIN
   i:=0;
   WHILE i<20  DO
      WinApi.Sleep(1000);
      Log.Real(ObxRandom.Uniform());
      Log.Ln;

      led0:=~led0;
      led1:=~led1;
      led2:=~led2;
      led3:=~led3;

      Dialog.UpdateBool(led0);   
      Dialog.UpdateBool(led1);   
      Dialog.UpdateBool(led2);   
      Dialog.UpdateBool(led3);   
      
      INC(i)
   END;
END Test;
```

Иногда срабатывает нормально (чекбоксы мигают, как LED),
иногда после 5-6 миганий система затормаживается и потом
все результаты сразу выводятся на печать.

Причина- в многозадачности операционной системы?
Как можно лечить?