* Correctly initialize AddToChangeList to Nil

packages/fcl-db/db.pas

@@ -2797,6 +2797,7 @@ Var
   I : Integer;
 
 begin
+  Result:=Nil;
   if Not Assigned(FChangeList) then
     Exit;
   B:=GetBookmark;