多线程 内使用下面的 函数时 线程会停止，貌似是死循环 记下
procedure Delay(Time:DWord); //精确延时 毫秒数
var
StartTime:DWord;
begin
StartTime:=Windows.GetTickCount;
while(Windows.GetTickCount-StartTime<=Time) do
begin
if time > 1000 then
sleep(time div 3)else sleep(333);
Application.ProcessMessages;
end;

end;