function TForm1.Button1Click(Sender:TObject);
var
　　Time:Cardinal;
　　Count:Cardinal;
begin
　　Count:=0;
　　Time:=GetTickCount+1000;
　　
　　while GetTickCount < Time do
　　begin
　　　　TestFunction;//テスト対象関数
　　　　Inc(Count);
　　end;
　　
　　ShowMessage(IntToStr(Count));
end;

多少問題がある方法だが、厳密な測定が不要な場合はこれでいいでしょう。