* Patch from Christian Vitroler to fix loading UTF8 data. Fixes issue #40543

(cherry picked from commit 607cd2947d3c98f332657b7dce05633c048fd289)

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

@@ -1565,7 +1565,7 @@ begin
             else
             begin
               li := pqgetlength(res,curtuple,x);
-              if li > FieldDef.Size then li := FieldDef.Size;
+              if li > FieldDef.Size*FieldDef.CharSize then li := FieldDef.Size*FieldDef.CharSize;
               Move(CurrBuff^, Buffer^, li);
             end;
           end;