[Igor]

Я делал так
t:=getReativeTimeMS;
For i:=1 to 1000000 do
begin
тут десять раз подряд писал одну и ту же функцию,
чтобы цикл (изменение i) не особо влияло на измерения
end;
t:=getReativeTimeMS-t;
Способ не очень хороший.