Да кстати как узнать что у тебя программа подвисла (чем то занят главный поток) из дочернего потока:

  if SendMessageTimeout (Application.Handle, WM_GETTEXTLENGTH, 0, 0, SMTO_ABORTIFHUNG, Interval, Result) <> 0 then 
    { все нормально, основной поток живет, запомнить текущее время }
  else
    { Главный поток не отвечает. Проверить давненко ли это было. Показать форму с прогрессом если нужно }