Время сортировки Опции

[Sensitive]

Здравствуйте!
У меня в программе производиться сортировка массива. Необходимо вычислить время сортировки.
Идея вот такая (сразу говорю поиском пользовалась, не нашла(( ):

 var
  d1,d2,V:extended;

  d1:=Now;
  PiramSort(a,b); {вызов процедуры сортировки}
  d2:=Now;
  V:=d2-d1;
  Label4.Caption:='Время сортировки = '+FloatToStr(V);

Выводит просто 0, вместо времени, за которое выполнилась процедура сортировки
Что не так?

[volvo]

Идея вот такая

Вот тебе еще идея:
Как замерить время выполнения программы? Это будет ближе к истине, поскольку работает с более высокой точностью (RDTCS - до тактов).