Измерить малые интервалы в работе программы (Delphi)

Для измерения очень малых временных интервалов в Delphi (и не только) можно использовать такты процессора.

Объявлем переменные

 Код Delphi:
var
iCounterPerSec: TLargeInteger;
C1, C2: TLargeInteger;
e: extended;

Измеряем частоту высокочастотного таймера измерения производительности.

 Код Delphi:
QueryPerformanceFrequency(iCounterPerSec);

Берем отсечки счетчиков таймера и вычисляем по их разнице прошедшее время.

 Код Delphi:
QueryPerformanceCounter(C1);
// Тут что-то делаем
QueryPerformanceCounter(C2);
e:=(C2-C1)/iCounterPerSec;