Réponse acceptée !
Bonjour,

procedure Pause(Laps : Cardinal);
         var Deb,fin : Cardinal;
begin
  Deb := gettickcount;
  Fin  := deb + Laps;
  while Fin>Deb do begin
    Deb := gettickcount;
    Application.ProcessMessages
  end;
end;

Utilisation :  Pause(1000)  => 1 seconde

Réponse acceptée !
Salut,

il y aussi cela  de Nebula et correction de Cam91 :
Voir ici
procedure TForm1.Pause2(t: DWORD);
asm
push esi
push edi
mov  esi,edx
call GetTickCount
add  esi,eax
mov  edi,Application
@attente:
   push 1
   call sleep
   mov  eax,edi                                   //ou rien (selon version)
   call TApplication.ProcessMessages //où call [edi].TApplication.ProcessMessages
   call GetTickCount
   cmp  esi,eax
jae @attente
pop  edi
pop  esi
end;

 
@+
Cirec

---

Réponse acceptée !
Il y a aussi ça, pour de trèèèèspetits intervals de temps. Particulièrement utile dans les Threads, où Sleep() donne automatiquement la main à un autre Thread...

procedure Pause3(Laps : int64);  
         var Deb,fin : int64;
begin
  QueryPerformanceCounter(deb);
  Fin := deb + Laps;
  while Fin>Deb do begin
    QueryPerformanceCounter(deb);
    Application.ProcessMessages;  //Facultatif dans un Thread.
  end;
end;

Utilisation :

var Freq : int64;
...
QueryPerformanceFrequency (Freq);
Pause3(Freq); // => 1 seconde.

PS: Tu nous le traduis en assembleur, Cirec?  Moi, je ne connais pas :(