procedure async_find_delay(var one_ms_delay: integer);