* Correction in connection pooling, we were leaking connections

git-svn-id: trunk@25522 -

packages/fcl-db/src/sqldb/postgres/pqconnection.pp

@@ -409,6 +409,7 @@ begin
   else
     begin
     tr.PGConn := PQconnectdb(pchar(FConnectString));
+    T.FPGConn:=tr.PGConn;
     CheckConnectionStatus(tr.PGConn);
     if CharSet <> '' then
       PQsetClientEncoding(tr.PGConn, pchar(CharSet));