diff --git a/packages/fcl-base/custapp.pas b/packages/fcl-base/custapp.pas
index ba50b5c..f637fab 100644
--- a/packages/fcl-base/custapp.pas
+++ b/packages/fcl-base/custapp.pas
@@ -189,6 +189,7 @@ begin
   ShowException(ExceptObject);
   if FStopOnException then
     Terminate(ExceptionExitCode);
+  if Sender=nil then ;
 end;
 
 procedure TCustomApplication.Initialize;