很不错的咚咚 对线程 然后等待响应 就不会卡死窗体了。

Repeat
Ret :=WaitForSingleObject(hThread,100);
Application.ProcessMessages;
Until Ret <> Wait_Timeout ;