>>126
漏れの方法は一秒間に何度関数が実行できるかのテストだが、
その方法は関数実行に何msecかかるかのテスト。
つまりその関数の実行に1msecかからないのなら、結果は0になる。
しかもGetTickCountは精度が悪い。（MMSystem.TimeGetTimeは精度こそ高いがGetTickCountと同じ機能。）

そのアプローチで逝くなら122方法がよいと思われ。
procedure TForm1.Button1Click(Sender: TObject);
var
Freq,TimeS,TimeE:Int64;
begin
QueryPerformanceFrequency(Freq);
QueryPerformanceCounter(TimeS);
TestProcedure;//テスト対象関数
QueryPerformanceCounter(TimeE);
ShowMessage( FloatToStr( (TimeE-TimeS)/Freq ) + 'sec' );
end;