Ich habe hier einen Zeitmessungscode der die Zeit mit hilfe der Systemzeit bestimmt:
Delphi-Quellcode:
var :t1 , t2 :real;
t1 := time; /// Startzeit
... /// Die Aufgabe
t2 := time; /// Endzeit
t.text := IntToStr (round((t2 - t1)*24*60*60*100); /// die Zeit wird in sek. ausgegeben
Wenn du die Zeit in Millisekunden haben willst, dann musst du noch durch 1000 Teilen;