Aguardar determindo tempo em delphi

procedure Delay(Segundos: Word);var x1: Double;
begin
x1:= Now;
repeat{Comando vazio}
until ((Now-x1)*86400) > Segundos;
end;