请教UrlDownloadToFile同时下多个文件问题

使用这个同时下载多个文件，想在全部下载完成后提示下完成遇到些问题    procedure DownLoadFail(Sender:TFileDownLoadThread;Reason:LongInt);
    procedure DownLoadProcess(Sender:TFileDownLoadThread;Progress, ProgressMax:Cardinal);
    procedure DownLoadComplete(Sender:TFileDownLoadThread);
有问题的代码如下：procedure TFdown.DownLoadComplete(Sender: TFileDownLoadThread);
begin
  DownComplete_count := DownComplete_count + 1 ;
  sg_down.Cells[2,DownComplete_count]:='下载完成'  ;
  real_down_count := real_down_count + 1;
  pb1.Position:= DownComplete_count ;
  if real_down_count < down_count then
  begin
    TFileDownLoadThread.Create(all_down_file[real_down_count].serverpath,all_down_file[real_down_count].savepath,DownLoadProcess,DownLoadComplete,DownLoadFail,false) ;
    label1.Caption:='总共:'+ inttostr(down_count) + '个文件,正下载第'+ inttostr(real_down_count) +'个';
  end;DownComplete_count这个数字，例如程序需要下载50个文件（我同时使用了多个下载源，每个下载源每一次分配一个文件下载的）每次下载4个文件，完成一个再继续增加下一个下载线程问题 ：
下载50个文件，最后 DownComplete_count只有49个，但是如果下载几个文件的话，数字没有错误，这个问题会是哪里出现的呢？