From 27f8f077d53b0bcea6111023f23c40b0fa54bcc3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 24 Aug 2022 14:13:17 +0200
Subject: [PATCH] * Patch from Luxa Olivetti, fix for issue #33737

---
 packages/fcl-db/src/sqldb/postgres/pqconnection.pp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/packages/fcl-db/src/sqldb/postgres/pqconnection.pp b/packages/fcl-db/src/sqldb/postgres/pqconnection.pp
index 3cef20e3fc..9d0825d011 100644
--- a/packages/fcl-db/src/sqldb/postgres/pqconnection.pp
+++ b/packages/fcl-db/src/sqldb/postgres/pqconnection.pp
@@ -987,6 +987,11 @@ begin
     begin
     PQclear(res);
     res:=nil;
+    if ForcedClose then
+    begin
+      FPrepared := False;
+      exit;
+    end;
     if FPrepared then
       begin
       if assigned(tr) and (PQtransactionStatus(tr.PGConn) <> PQTRANS_INERROR) then