//取毫秒级时间精度(方法一): var t1,t2:int64; r1:int64; begin t1:=GetTickCount;//获取开始计数 WINDOWS API sleep(1000);{do...}//执行要计时的代码 t2:=GetTickCount;//获取结束计数值 r1:=t2-t1;//取得计时时间,单位毫秒(ms) ShowMessage(inttostr(r1)); end; //取毫秒级时间精度(方法二): //use DateUtils;//引用DateUtil…