Um die Zeitdauer von bestimmten Operationen zu messen, werwende ich gerne GetTickCount. Das ist zwar nicht genau, aber man bekommt dadurch grob raus, wo es länger dauert.
Genauere Zeiten und mindestens ebenso bequem bekommt man es mit TStopWatch aus System.Diagnostics:
Delphi-Quellcode:
var sw := TStopWatch.StartNew;
...
Writeln(sw.ElapsedMilliseconds);