fcl-db: sqldb: Test for assigned AParams in LogParams to avoid AV. Bug #30662

git-svn-id: trunk@34573 -

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

@@ -1747,7 +1747,7 @@ Var
   P : TParam;
 
 begin
-  if not LogEvent(detParamValue) then
+  if not LogEvent(detParamValue) or not Assigned(AParams) then
     Exit;
   For P in AParams do
     begin