var
  iPos,iEnd,iTmp:Integer;
begin
  iPos:=GetTickCount;
  GetDataSet;
  iEnd:=GetTickCount;
  iTmp:=iEnd-ipos;
  stat1.SimpleText:='记录数：'+inttostr(qry1.RecordCount)+'条;耗时：'+inttostr(iTmp)+'毫秒';

 

使用getTickCount实现延时

procedure Delay(msecs:integer);
var
  FirstTickCount:longint;
begin
  FirstTickCount:=GetTickCount;
  repeat
  Application.ProcessMessages;
  until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;  

（出处：http://www.delphibbs.com/keylife/iblog_show.asp?xid=29266）