Fix sloppy regular expression in TDBConnection.DetectUSEQuery which r…

…emoves too much of trailing quotes in a database name. See http://www.heidisql.com/forum.php?t=22743

source/dbconnection.pas

@@ -3070,7 +3070,7 @@ procedure TDBConnection.DetectUSEQuery(SQL: String);
     EscapeFunction := 'E'
   else
     EscapeFunction := '';
-  rx.Expression := StringReplace(rx.Expression, '%s', EscapeFunction+'['+Quotes+']?([^'+Quotes+']+)['+Quotes+']*', [rfReplaceAll]);
+  rx.Expression := StringReplace(rx.Expression, '%s', EscapeFunction+'['+Quotes+']?(.+)['+Quotes+']?', [rfReplaceAll]);
   if rx.Exec(SQL) then begin
     FDatabase := Trim(rx.Match[1]);
     FDatabase := DeQuoteIdent(FDatabase);