查询记时问题？

Question

如果想得一个查询所用的时间，该怎么做？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  Time1:TTime;
  Time2:TTime;
begin
 time1:=time; //...查询过程
 time2:=time;
 edit1.text:=timetostr(time2-time1);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
 var startTime:Cardinal;
begin
     startTime:=gettickcount;
      //------------
       sleep(1000);
      //------------
    showmessage(inttostr(gettickcount-starttime));
end;

Answer 3

startTime:=GetTickCount
......
EndTime:=GetTickCount;
(EndTime-StartTime)/1000就得到所用时间(单位：秒)