1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  t1, t2, res: TLargeInteger; 

begin
  QueryPerformanceFrequency(Res); 
  QueryPerformanceCounter(Zeit1); // Oder: Zeit1 := TimeGetTime;

  // ... Deine Routine;

  QueryPerformanceCounter(Zeit2); // Oder: Zeit2 := TimeGetTime;

  MessageDlg('Der Schleifendurchlauf dauerte: ' + Format('%g Sekunden.', 
    [(t2 - t1) / Res]));