Aquardar um determinado nº de segundos

Procedure Delay(Segundos: Word);

var x1: Double;

beginx1:= Now;repeat{Comando vazio}until ((Now-x1)*86400) > Segundos;

end;