我想做多线程的线程自动分配使用循环（例如循环）在 Delphi 中。当我这样做时，我得到一个范围检查错误或线程正在崩溃。下面是我的代码。但是当我手动运行而不循环时，它不会执行错误或崩溃。

uses
  System.SysUtils, System.Diagnostics, System.Threading, System.Math,
  System.Classes;

var
  NumberOfThreads: Uint8;
  Tasks: array of ITask;
  SumFromThreads, InputNumber: array of cardinal;
  SW: TStopWatch;

function SumUptoNumber(NumberUptoSum: cardinal): cardinal;
begin
  Result := 0;
  for var I := 1 to NumberUptoSum do
    Result := Result + I;

end;

begin
  try
    writeln('How many threads do you want?');
    readln(NumberOfThreads);
    SW := TStopWatch.StartNew;

    SetLength(Tasks, NumberOfThreads);
    SetLength(SumFromThreads, NumberOfThreads);
    SetLength(InputNumber, NumberOfThreads);

    for var I := 0 to NumberOfThreads - 1 do
    begin
      writeln('Enter the value for ' + (I + 1).ToString);
      readln(InputNumber[I]);
      Tasks[I] := TTask.Create(
        procedure
        begin
          SumFromThreads[I] := SumUptoNumber(InputNumber[I]);
        end);
      Tasks[I].Start;
      //sleep(1);

    end;

    TTask.WaitForAll(Tasks);
    SW.Stop;

    for var J := 0 to NumberOfThreads - 1 do
      writeln('The sum upto ' + InputNumber[J].ToString +
        ' calculated using Thread Number ' + J.ToString + ' is ' +
        SumFromThreads[J].ToString);

    SetLength(Tasks, 0);
    SetLength(SumFromThreads, 0);
    SetLength(InputNumber, 0);

    writeln('Duration of this process is ' + ((SW.ElapsedMilliseconds) / 1000)
      .ToString + ' seconds ');
    readln;

  except
    on E: Exception do
    begin
      writeln(E.ClassName, ': ', E.Message);
      readln;

    end;

  end;

end.