Como fazer uma pausa por um período determinado

//NumSec é o tempo em segundos de espera
var
NumSec SmallInt;
StartTime: TDateTime;
begin
StartTime := now;
NumSec:=10;
repeat
Application.ProcessMessages;
until Now > StartTime + NumSec * (1/24/60/60);
end;