在Delphi中如何得到查询数据库所耗的时间

如题

可以用这种方法获取，但不是很精确，特别是远程。
var 
  st,et,usetime:cardinal; 

  st:=GetTickCount（）;
  AdoQuery1.ExecSQL or AdoQuery1.Open;
  et:=GetTickCount;
  usetime:=et-st; 单位ms。