Zeit einer SQL-Query berechnen und anzeigen

[Stevie]

Delphi-Quellcode:

procedure Irgendwas;
var
  R1: string;
  Start, Stop, Freq: Int64;
begin
  with dm_mysql do
  begin
    sql_artikel.close;
    sql_artikel.sql.text := 'select * from artikel';
    QueryPerformanceCounter(Start);
    sql_artikel.open;
    QueryPerformanceCounter(Stop);
    QueryPerformanceFrequency(Freq);
    lbl_gefunden.Caption := Format('%d insgesamt, die Abfrage dauerte %.4f sek', [sql_Artikel.RecordCount, (Stop - Start) / Freq]);
  end;
end;