## Код:
```
IMPORT Services;

TYPE
  DelayAction = POINTER TO RECORD (Services.Action) END;

PROCEDURE (da: DelayAction) Do;
BEGIN
 (* наш код 
если нужно продолжить, выполняем здесь
Services.DoLater(Services.Ticks()+timeout);*)
END Do;

PROCEDURE DoLater(timeout: INTEGER);
VAR da: DelayAction;
BEGIN
NEW(da); Services.DoLater(da, Services.Ticks()+timeout); (* это важно, именно Ticks()+таймаут, то есть, через таймаут от текущего момента *)
END DoLater;
```
