Mostra o tempo de execuacao

//Mostra a diferenca de tempo
procedure TfrmPesquisa.Pesquisa;
var
   t: Integer;
   Tempo: TDateTime;
begin
   t := GetTickCount;
   Pesquisar;
   sleep(1000);

   Tempo := (GetTickCount - t) / MSecsPerSec / SecsPerDay;
   ShowMessage(FormatDateTime('hh:nn:ss:zzz', tempo));
end;