Dauer einer Schleife in Sek. messen?

[Luckie]

GetTickCount wäre da wohl geeigneter:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  StartTime: DWORD;
  EndTime: DWORD;
  i: Integer;
begin
  StartTime := GetTickCount;
  for i := 0 to 1000 do
    Sleep(10);
  EndTime := GetTickCount;
  ShowMessage(IntToStr((EndTime - StartTime) div 1000) + ' Sekunden');
end;