Tempo - delay com o relogio

Top  Previous  Next

// NumSec é o tempo em segundos de espera

 

 

Procedure TForm1.Aguarda(NumSec:SmallInt);

var 

    StartTime: TDateTime;

Begin

     StartTime := now;

     Repeat

           Application.ProcessMessages;

     Until Now > StartTime + NumSec * (1/24/60/60);

end;.