unit CheckSave;

interface
procedure CheckSave;
implementation

procedure CheckSave; 
var Time : TDateTime; 
begin 
Time:= Now - (0.5 / 1440);
if InJournalBetweenTimes('Saving World State',Time,Now) >= 0 then Wait(30000) 
end;
end.