procedure Pause2(Timewait: Integer);
var
 begin_time: double;
begin
  begin_time:=now;
  while Trunc(86400000*(now-begin_time))<TimeWait do ;
end;