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