* Do not try to shutdown Gecko if it failed to load, to avoid exceptions during exceptions

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1370 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/geckoport/Components/GeckoBrowser.pas

@@ -179,6 +179,8 @@ type
 
     FOnSetupProperties: TNotifyEvent;
 
+    FGeckoComponentsStartupSucceeded: boolean;
+
     //misc settings
     FDisableJavaScript: Boolean;
     FInitialized: Boolean;
@@ -1012,6 +1014,7 @@ begin
   if not (csDesigning in ComponentState) then
   begin
     GeckoComponentsStartup;
+    FGeckoComponentsStartupSucceeded := true;
   end;
 end;
 
@@ -1027,7 +1030,8 @@ begin
     Chrome := nil;
     Listener := nil;
 
-    GeckoComponentsShutdown;
+    if FGeckoComponentsStartupSucceeded then
+      GeckoComponentsShutdown;
   end;
 
   inherited;