我正在尝试评估并发线程的速度。我不明白结果。就像某个地方有一个锁。我正在Dell 3571上运行以下代码，20核/线程i9：
1.机组1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TMyThread = class(TTHread)
  public
    procedure Execute; override;
  end;

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Log(Sender: TMyThread; Log: string);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Log(Sender: TMyThread; Log: string);
begin
  Memo1.Lines.add(Log);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Thr: array[0..19] of TMyThread;
begin
  for var t := 0 to 10 do
  begin
    var Thread := TMyThread.Create(True);
    Thr[t] := Thread;
    Thread.Priority := TPHigher;
  end;
  for var t := 0 to 10 do
    Thr[t].Resume;
  end;

{ MyThread }

procedure TMyThread.Execute;
begin
  sleep(500);
  try
    var ii: nativeint;
    var Start := GetTickCount;
    for var i := 0 to  750000000 do
        inc(ii);
    var Delta := (GetTickCount - Start);
     Synchronize( procedure begin Form1.Log(Self, Format( 'Done Loading : %dms', [Delta]) ); end );
    except
      asm nop; end;
    end;
end;

end.

在使用1个线程运行此程序时，我得到：320毫秒一次计算当运行这个与10 theand，我得到：

Done Loading : 344ms 
Done Loading : 375ms 
Done Loading : 391ms 
Done Loading : 422ms
Done Loading : 438ms
Done Loading : 469ms
Done Loading : 469ms
Done Loading : 469ms
Done Loading : 516ms
Done loading : 531ms

所有结果在320 ms时是否几乎相同？
PS：我试过用windows CreatThread，ITask...同样的结果，无论线程的数量...
有什么想法吗？谢谢。