[lmikle]

Боюсь, что в данном случае любой код будет тормозить. Хотя попробуй засекать время и в цикле While (Now - StartTime) < Delay Do ;