App se cierra al ejecutar query

[amadis]

Que tal colegas,

Necesito un par de ojos extra.

Estoy haciendo una app que envía y recibe datos de una base de datos en pc via datasnap. (eso está todo bien)

En la App, debo mantener el listado de clientes actualizado, para ello hay un botón RECIBIR CLIENTES que activa un clientdaset que contiene la info actualizada. Luego lo recorro, y si el cliente NO existe en la DB Sqlite, lo inserto, o si existe lo actualizo.

El problema que tengo es que hay algo en mi Query de actualizar que corta el programa y se sale. Y lo raro es que si compilo y ejecuto la App en win32 funciona bien, pero al compilo en Android se sale al entrar en actualizar.

Código Delphi [-]
 QryRec := TFDQuery.Create(Principal);
                       cdscli.DisableControls;
                       cdscli.First;
                       Application.ProcessMessages;

                          while not cdscli.Eof
                          do
                           begin
                                 try
                                    begin

                                        QryRec.Close;
                                        QryRec.SQL.Clear;
                                        QryRec.Connection := datos.FDconmovil;
                                        QryRec.UpdateTransaction := datos.FDTrans;
                                        QryRec.Transaction := datos.FDTrans;
                                        QryRec.SQL.Append('INSERT INTO CLIENTES');
                                        QryRec.SQL.Append('(ID, NOMBRES, CUIT, TEL, CEL, EMAIL, IVA, PROVINCIA, LOCALIDAD, ZONA, LISTA, DESCUENTO, VENDEDOR, DOCUMENTO, LIMITE, FECHA)');
                                        QryRec.SQL.Append('values(:id, :nom, :cuit, :tel, :cel, :mail, :iva, ro, :loc, :zo, :list, :desc, :ven, :doc, :lim, :fe) ');
                                        QryRec.ParamByName('id').AsInteger :=  cdscliid.Value;
                                        QryRec.ParamByName('fe').AsDateTime := cdscliactualiz.AsDateTime;
                                        QryRec.ParamByName('nom').AsString :=  cdsclinombres.AsString;
                                        QryRec.ParamByName('cuit').AsString :=  cdsclicuit.Value;
                                        QryRec.ParamByName('tel').AsString :=  cdsclitel.AsString;
                                        QryRec.ParamByName('cel').AsString :=  cdsclicel.AsString;
                                        QryRec.ParamByName('mail').AsString :=  cdscliemail.AsString;
                                        QryRec.ParamByName('iva').AsString :=  cdscliiva.Value;
                                        QryRec.ParamByName('pro').AsInteger :=  cdscliprovincia.Value;
                                        QryRec.ParamByName('loc').AsString :=  cdsclilocalidad.Value;
                                        QryRec.ParamByName('zo').AsInteger :=  cdsclizona.Value;
                                        QryRec.ParamByName('list').asinteger :=  cdsclilista.Value;
                                        QryRec.ParamByName('desc').AsFloat :=  cdsclidescuento.Value;
                                        QryRec.ParamByName('ven').AsInteger :=  cdsclivendedor.Value;
                                        QryRec.ParamByName('doc').AsInteger :=  cdsclidocumento.Value;
                                        QryRec.ParamByName('lim').AsFloat :=  cdsclilimite.Value;


                                        QryRec.ExecSQL;
                                        nue := nue+1;
                                        Application.ProcessMessages;
                                    end;
                                 except
                                    begin

                                        QryRec.Close;
                                        QryRec.SQL.Clear;
                                        QryRec.Connection := datos.FDconmovil;
                                        QryRec.UpdateTransaction := datos.FDTrans;
                                        QryRec.Transaction := datos.FDTrans;
                                        QryRec.SQL.Append('UPDATE CLIENTES');
                                        QryRec.SQL.Append('SET NOMBRES = :nom, CUIT = :cuit, TEL = :tel, CEL = :cel, EMAIL = :mail, IVA = :iva, PROVINCIA = ro, LOCALIDAD = :loc, ZONA = :zo, LISTA = :list, DESCUENTO = :desc, VENDEDOR = :ven, DOCUMENTO = :doc, LIMITE = :lim, FECHA = :fe');
                                        QryRec.SQL.Append('where ID = :id and (fecha < :fe)');
                                        QryRec.ParamByName('id').AsInteger :=  cdscliid.Value;
                                        QryRec.ParamByName('fe').AsDateTime := cdscliactualiz.AsDateTime;
                                        QryRec.ParamByName('nom').AsString :=  cdsclinombres.AsString;
                                        QryRec.ParamByName('cuit').AsString :=  cdsclicuit.Value;
                                        QryRec.ParamByName('tel').AsString :=  cdsclitel.AsString;
                                        QryRec.ParamByName('cel').AsString :=  cdsclicel.AsString;
                                        QryRec.ParamByName('mail').AsString :=  cdscliemail.AsString;
                                        QryRec.ParamByName('iva').AsString :=  cdscliiva.Value;
                                        QryRec.ParamByName('pro').AsInteger :=  cdscliprovincia.Value;
                                        QryRec.ParamByName('loc').AsString :=  cdsclilocalidad.Value;
                                        QryRec.ParamByName('zo').AsInteger :=  cdsclizona.Value;
                                        QryRec.ParamByName('list').asinteger :=  cdsclilista.Value;
                                        QryRec.ParamByName('desc').AsFloat :=  cdsclidescuento.Value;
                                        QryRec.ParamByName('ven').AsInteger :=  cdsclivendedor.Value;
                                        QryRec.ParamByName('doc').AsInteger :=  cdsclidocumento.Value;
                                        QryRec.ParamByName('lim').AsFloat :=  cdsclilimite.Value;
                                        QryRec.ExecSQL;
                                        act := act+1;
                                        Application.ProcessMessages;
                                    end;
                                 end;
                                  c := c +1;
                                  LbRec.Text := inttostr(c);
 
                                  Application.ProcessMessages;
                                 cdscli.Next;
                            end;
                       QryRec.free;
                     pnespere.Visible := false;

                    end;
 
                  Showmessage(inttostr(act) + ' Clientes actualizados y '+ inttostr(nue)+ ' nuevos');
                 cdscli.Close;

En el trozo de código de arriba se ve la creación del Query, el armado de las 2 consultas y la asignación de parámetros.

Que cosa rara o mal ubicada puede estar causando ese problema?