計算程式跑了多少時間

use windows;

private
  p_Start, p_Cost : DWORD;

p_Start:=GetTickCount();//計算時間
程式....
p_Cost:=GetTickCount()-p_Start;
showmessage('spend time: '+format('%0.3n',[p_Cost/1000])+'s');