Tempo de Query

var
   t1, t2: LongInt;
begin
   t1 := GetTickCount;

   // Sua Query ou qualquer outra rotina aqui...

   t2 := GetTickCount;
   ShowMessage(´A rotina foi executada em ´ + IntToStr(t2 - t1) + ´ milisegundos´);

end;