delphi – 为什么相同的代码在线程中执行得更快？

uses Diagnostics;

const
  ITER_COUNT = 100000000;

procedure TForm1.btn2Click(Sender: TObject);
var
  val: Double;
  i: Integer;
begin
  sw := TStopwatch.StartNew;

  val := 1;
  for i := 0 to ITER_COUNT - 1 do
  begin
    val := val + i;
    val := val - i;
    val := val * 10;
    val := val / 10;
  end;

  sw.Stop;

  mmo1.Lines.Add(Format('Simple completed in %D ms. Result: %G',[sw.ElapsedMilliseconds,val]));
end;

这个简单的循环在我的PC上执行4027 ms.现在如果我写相同的代码,只使用不同的线程：

procedure TForm1.btn3Click(Sender: TObject);
begin
  sw := TStopwatch.StartNew;
  TThread.CreateAnonymousThread(
    procedure
    var
      val: Double;
      i: Integer;
    begin
      val := 1;
      for i := 0 to ITER_COUNT- 1 do
      begin
        val := val + i;
        val := val - i;
        val := val * 10;
        val := val / 10;
      end;

      sw.Stop;

      TThread.Queue(nil,procedure
        begin
          mmo1.Lines.Add(Format('Async completed in %D ms. Result: %G',val]));
        end);
    end
  ).Start;
end;

该方法执行相同但在不同的线程执行2910毫秒！ (在Delphi XE中编译,释放配置有效)我注意到线程中增加了25％,无论我有多少次迭代.为什么是这样的？不应该是一样的结果吗？

编辑：
经过进一步调查,我发现可能的原因是Windows 7操作系统.在Windows 7机器上,简单的循环主线程执行速度比异步版本慢25％左右！我甚至尝试使用Windows XP模式在同一台Windows 7 PC上运行同一个项目,然后两个结果相等 – ?3000ms！我完全迷失在这里…什么是Windows 7做主要线程是更慢？