Always run TryCloseBrowser in the CEF UI thread

source/uCEFTask.pas

@@ -197,6 +197,11 @@ type
       procedure Execute; override;
   end;
 
+  TCefTryCloseBrowserTask = class(TCefChromiumTask)
+    protected
+      procedure Execute; override;
+  end;
+
 implementation
 
 uses
@@ -677,4 +682,22 @@ begin
   end;
 end;
 
+
+// TCefTryCloseBrowserTask
+
+procedure TCefTryCloseBrowserTask.Execute;
+begin
+  try
+    try
+      if CanExecute then
+        IChromiumEvents(FEvents).doTryCloseBrowser;
+    except
+      on e : exception do
+        if CustomExceptionHandler('TCefTryCloseBrowserTask.Execute', e) then raise;
+    end;
+  finally
+    FEvents := nil;
+  end;
+end;
+
 end.