Время процедуры

[B_N]

procedure TForm1.Button1Click(Sender: TObject);
var
    i               : integer;
    x               : extended;
    c1, c2          : int64;
    freq            : int64;
begin
    x := random;

    QueryPerformanceCounter(c1);

    ////////////////////////////////////
    for i := 0 to 100 do x := sin(exp(abs(x)));
    ////////////////////////////////////

    QueryPerformanceCounter(c2);

    QueryPerformanceFrequency(freq);
    if freq <> 0 then begin
        x := (c2 - c1) / freq;
        ShowMessage(format('%3.10f Sec', [x]));
    end;

end;

[AngelOfDeath]

2B_N
Спасибо работает
Можете прокомментировать процедуру чтоб было всё понятно?
А если точно то вот эти части кода:

  QueryPerformanceCounter(c2);
 ShowMessage(format('%3.10f Sec', [x]));