目前我正在做一个 Delphi 计算模块（bpl）的性能改进。在过去的几天里，我发现了几个很慢的代码行。我们将执行时间从8分钟改进到了3分钟。
我发现通过在所有单元中添加秒表，代码行缓慢，但进行这些更改耗时。

procedure TCalculator.Execute;
begin
  TStopwatchWrapper.Start(1);
  CollectValues;
  TStopwatchWrapper.Pause(1);
  TStopwatchWrapper.Start(2);
  CalculateOrderLines;
  TStopwatchWrapper.Pause(2);
  ...
  TStopwatchWrapper.ShowTimes;

结束;

procedure TCalculator.CollectValues;
begin
  for {..} do
  begin
    {more timing}
  end;
end;

计算单位为数百行。
我很希望能够装饰一个单元，找到这些缓慢的代码行。我在考虑Spring4D interceptors，但这只适用于拦截外部调用。
是否可以测量每行或每个过程的累计执行时间？而无需在整个代码中添加秒表或分析调用。
先谢谢你了。