* Initialize result in CountConnections

packages/fcl-db/src/sqldb/sqldbpool.pp

@@ -1205,6 +1205,7 @@ Var
   Key : String;
   L : TConnectionList;
 begin
+  Result:=0;
   Key:=CreateKey(aDef);
   Lock;
   try