if CurThreads < MaxThreads then
  begin
   if not DownloadQueue.isEmpty then
    begin
     Inc(CurThreads,1);
     DownloadQueue.toFirst;
     load:= TLeech.Create(true);

     with (DownloadQueue.getItem AS TLeechSettings) do
      load.Set_Data(Get_url,Get_title);

     load.FreeOnTerminate := True;

     DownloadQueue.remove;
     load.Resume;
    end;
  end;