Nimm 2 Variablen vom Typ Int64.
Bei beginn der Zeitmessung machst du
queryperformancecounter (variable1);
am ende sowas wie
Delphi-Quellcode:
queryperformancecounter (variable2);
variable1 := variable2 - variable1
queryperformancefrequency (variable2);
showmessage ('Abgelaufene Zeit: ' + floattostr (variable1 / variable2) + ' sek');