procedure Menyala.Execute;
label
  Result_;
const
  cf =['0'..'9'];
var
  s, s1: string;
  i, j, k: integer;
  n: Int64;
begin
  Randomize;
  list := TStringList.Create;
  while FAccounts.Count <> 0 do
  begin

    AccID := 0;
    if Pos(':', FAccounts[AccID]) <> 0 then
    begin
      Login := Copy(FAccounts[AccID], 1, Pos(':', FAccounts[AccID]) - 1);
      Pass := Copy(FAccounts[AccID], Pos(':', FAccounts[AccID]) + 1, Length(FAccounts[AccID]));
    end;

    if Pos(';', FAccounts[AccID]) <> 0 then
    begin
      Login := Copy(FAccounts[AccID], 1, Pos(';', FAccounts[AccID]) - 1);
      Pass := Copy(FAccounts[AccID], Pos(';', FAccounts[AccID]) + 1, Length(FAccounts[AccID]));
    end;
    FAccounts.Delete(AccID);

    list.Text := Login; //пусть исходный текст в Мемо1
    for i := 0 to list.Count - 1 do
    begin
      s := '' + list[i] + '';
      j := length(s) - 1;
      while j >= 1 do
        if (s[j] in cf) and not (s[j + 1] in cf) then
        begin
          s1 := '';
          k := j;
          while (k >= 1) and (s[k] in cf) do
          begin
            s1 := s[k] + s1;
            k := k - 1;
          end;
          n := strtoint(s1);
          case FS of   // Во первых софт виснет, по непонятным мне причинам, если грузишь базу большую, где-то в начале и зависает, а во вторых надо убрать кейс, так что-бы софт делал это все сразу вместе, с одним потоком, ибо я не допираю, что-бы он делал сначало 0+рандом, записывал в один документ, 1+рандом записывал в другой, 1-(рандом) и 0-(рандом)
            0:
              begin
                n := n - 0 + random(9); //вычитаем случайное число от 1 до 9
                delete(s, k + 1, length(s1));
                insert(inttostr(n), s, k + 1);
                j := j - length(inttostr(n));
              end;
            1:
              begin
                n := n - 1 + random(9); //вычитаем случайное число от 1 до 9
                delete(s, k + 1, length(s1));
                insert(inttostr(n), s, k + 1);
                j := j - length(inttostr(n));
              end;
            2:
              begin
                if n >= 10 then
                begin
                  n := n - 1 - random(9); //вычитаем случайное число от 1 до 9
                  delete(s, k + 1, length(s1));
                  insert(inttostr(n), s, k + 1);
                  j := j - length(inttostr(n));
                end;
              end;
            3:
              begin
                if n >= 1 then
                begin
                  n := n - 0 - random(1); //вычитаем случайное число от 1 до 9
                  delete(s, k + 1, length(s1));
                  insert(inttostr(n), s, k + 1);
                  j := j - length(inttostr(n));
                end;
              end;
          end;
        end
        else
          j := j - 1;
      list[i] := Trim(s + ':' + Pass);

    end;
    Rez := 1;

Result_:
    case Rez of
      1:
        Synchronize(syncGood);
  end;
end;

procedure Menyala.syncGood;
begin
case FS of
0:
begin
  Append(GoodFileName09);
  WriteLn(GoodFileName09, Trim(List.Text));
  CloseFile(GoodFileName09);
  MainForm.sg1.AddProgress(+1);
end;
1:
begin
  Append(GoodFileName19);
  WriteLn(GoodFileName19, Trim(List.Text));
  CloseFile(GoodFileName19);
  MainForm.sg1.AddProgress(+1);
end;
2:
begin
  Append(GoodFileName91);
  WriteLn(GoodFileName91, Trim(List.Text));
  CloseFile(GoodFileName91);
  MainForm.sg1.AddProgress(+1);
end;
3:
begin
  Append(GoodFileName01);
  WriteLn(GoodFileName01, Trim(List.Text));
  CloseFile(GoodFileName01);
  MainForm.sg1.AddProgress(+1);
end;
end;
end;