end;
Application.ProcessMessages;
end;
+ // \8ec\82Á\82Ä\82¢\82é\83X\83\8c\83b\83h\82ð\91S\82Ä\8fI\97¹\82³\82¹\82é\81B
for i := 0 to FThreadList.Count - 1 do begin
+ TDownloadThread(FThreadList[i]).Abort;
TDownloadThread(FThreadList[i]).Terminate;
- if TDownloadThread(FThreadList[i]).Suspended then
+ if TDownloadThread(FThreadList[i]).Suspended then begin
TDownloadThread(FThreadList[i]).Resume;
+ TDownloadThread(FThreadList[i]).WaitFor;
+ end;
end;
end;