procedure Test;
const
    max = 4000000000;
begin
{$O-}
    asm
        push eax
        push ecx
        mov  eax, max
        xor  ecx,ecx
       @loop:
        inc  ecx
        cmp  ecx,eax
        jb  @loop
        pop  ecx
        pop  eax
    end;
end;
{$O+}