for i:=1 to thr do begin
    for j:=0 to source.Count -1 do begin
      a[i]:=TNewThread.Create(true);
      a[i].FreeOnTerminate:=true;
      a[i].Priority:=tpLOWEST;
      a[i].LoginT:=copyLogin(Source.Strings[j]);
      a[i].passT:=copyPass(Source.Strings[j]);
      a[i].Resume;
      Application.ProcessMessages;
      if Application.Terminated then break;
      if stop then break;
    end;
    ThreadsLbl.Caption:=IntToStrW(StrToIntW(ThreadsLBL.Caption)+1);
  end;