нельзя так потоки использовать. В данном случае должна быть следующая схема:
1) запуск фонового потока
2) показ модальной формы
3) обновление сттатуса и вызов ProcessMessages после точки onSyncExec
4) закрытие формы
5) завершение потока