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

var
 i,x: integer;
 s: integer;
begin
  s := gettickcount;

  for x := 1 to high(integer) do begin
   i := -x;
   i := i + 0; // <-- verfälscht oder beschleunigt? 
  end;

  s := gettickcount - s;
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure test;
label loopit;
var
 i: integer;
 s: integer;
begin
  asm
    call GetTickCount  // Zeit in EAX
    mov  esi, eax
    mov  ecx, $00000001

loopit:
    mov ebx, ecx
    add ebx, $00      // <-- Fehlt diese Zeile wird d. Differenz eax-esi um 500 größer!
    neg ebx
    inc ecx
    cmp ecx, $80000000
    jne loopit

    call GetTickCount // Zeit in EAX
    sub  eax, esi
    mov    s, eax
    mov    i, ebx
  end;

  form1.listbox1.items.add(inttostr(i));
  form1.listbox1.items.add(Format('zeit: %d',[s]));
end;