delphi - OmniThreadLibrary 的 Parallel.ForEach 中的内存泄漏

Question

我用OmniThreadLibrary. 它有一个并行的方法ForEach。

我正在研究高负载系统，我需要并行处理一些数组。但是我遇到了内存泄漏。

这是一个示例：

procedure TForm7.FormCreate(Sender: TObject);
var loop: IOmniParallelLoop<Integer>;
begin
  while True do
    begin
      loop := Parallel.ForEach(1, 100);
      loop.Execute(procedure (const i: Integer)
        begin

        end);

       loop := nil;
       Sleep(100);
    end;
end;

当我运行这段代码时，我可以看到虚拟内存泄漏。

怎么了？