[Autumn]

Если я не ошибаюсь, эта функция из DelphiWorld. Но даже если она не оттуда - вынеси ее в отдельный поток (TThread) и будет тебе счастье.

P.S: можно после каждого прохождения цикла вставить Application.ProcessMessages, но это будет не так эффективно.