Tempo - delay com o relogio

// 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;.