ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Пишу брут, первый раз, всё работает, гуды находит, но есть оно : проходит ровно столько строк, сколько установлено потоков. Целый день пишу, голова уже не работает, вот кусок прцедуры, отвечающей за сооздание потока :

Код:

  for i:= 1 to SpinEdit1.Value do begin
    a[i]:=TNewThread.Create(true);
    a[i].FreeOnTerminate:=true;
    a[i].Priority:=tpLOWER;
    a[i].LoginTH:=copyLogin(Source.Strings[i]);
    a[i].passTH:=copyPass(Source.Strings[i]);
    a[i].Resume;
    application.ProcessMessages;
    if Application.Terminated then break;
    if stop then break;
    ThreadsLBL.Caption:=IntToStr(i);
  end;

Поправьте, как надо.
не актуально, как запостил - нашел ошибку.