--- JvAppEvent.pas	Thu Oct 29 08:18:31 2009
+++ JvAppEvent.pas	Thu Oct 29 11:10:08 2009
@@ -191,14 +191,23 @@
 
 implementation
 
 uses
   AppEvnts;
 
 type
+  TApplicationEvents = class(AppEvnts.TApplicationEvents)
+    published
+    {$IFDEF COMPILER7_UP}
+      property OnModalBegin;
+      property OnModalEnd;
+    {$ENDIF COMPILER7_UP}  
+  end;
+
+type
   TJvAppEventList = class(TComponent)
   private
     FApplicationEvents: TApplicationEvents;
     FAppEvents: TList;
     FHooked: Boolean;
     FOnActiveControlChange: TNotifyEvent;
     FOnActiveFormChange: TNotifyEvent;