ATTENDRE X SECONDES DANS UNE BOUCLE

program SleepEx;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var
  i: Integer;

procedure Pause(t: DWORD); register;
asm
  push ecx
  push ebx
  mov ecx, eax
  call GetTickCount
  mov ebx, eax
@attente:
  push ebx
  push ecx
  push 1
  call Sleep
  pop ecx
  pop ebx
  call GetTickCount
  sub eax, ebx
  cmp eax, ecx
  jnae @attente
  pop ebx
  pop ecx
end;

begin
  for i := 0 to 9 do begin
    writeln('i=', i);
    Pause(1000);
  end;
end.