From 18c08dc4d12af8ff37b99e17dc51afe5f77cc61c Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Fri, 7 May 2010 17:22:28 +0000
Subject: [PATCH] Handle all types of exceptions when renaming database, not
 only connection related ones. Fixes issue #1912.

---
 source/createdatabase.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/createdatabase.pas b/source/createdatabase.pas
index 4951b6db..a7e78835 100644
--- a/source/createdatabase.pas
+++ b/source/createdatabase.pas
@@ -284,7 +284,7 @@ begin
     // Close form
     ModalResult := mrOK;
   except
-    on E:EDatabaseError do
+    on E:Exception do
       MessageDlg( 'Altering database "'+editDBName.Text+'" failed:'+CRLF+CRLF+E.Message, mtError, [mbOK], 0 );
     // Keep form open
   end;