变更令，兼容返回空

DataModules/BGLDm.pas

@@ -728,6 +728,7 @@ var
 begin
   vJ := SO(ABGLs);
   try
+    if not Assigned(vJ.AsArray) then Exit;
     for i := 0 to vJ.AsArray.Length - 1 do
       AddCloudBGL(vJ.AsArray.O[i]);
   finally