我想测试一个过程运行需要多长时间，这样写对吗？

比如：
  t1:=Now;
  i:=0;
  sum:=0;
  while i<10000000 do
  begin
    sum:=sum+i;
    Inc(i);
  end;
  t2:=Now;
  t:=DaySpan(t1,t2);
－－－－－－－－－－－－－－－
使用dayspan函数最后得到的数还不到1，可是实际时间远远大于1秒，用daysbetween得到的是0，
我怀疑两次取Now的值都一样。
请问应该怎么做？