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.
