DataSnap varios clientes conectados a distintas db por un mismo servicio

[Soa Pelaez]

Empezado por Soa Pelaez

Realizó lo siguiente, luego de guardar retorno una variable con un número del registro que guardo y eso lo devuelvo al cliente, pero cuando el cliente A y el cliente B le dan guardar al mismo tiempo, uno de los
dos pierde el registro e igual no retorna el número.

Código Delphi [-]
    Conexion.StartTransaction;
    try
      iErrors := Squema.ApplyUpdates(0);
      if iErrors = 0 then
      begin
        for x := 0 to Squema.Count - 1 do
        if Squema.DataSets[x].UpdatesPending then
        begin
          Squema.DataSets[x].CommitUpdates;
          Conexion.Commit; //09/12/2015
          _ResultadoMD := 1;
        end;
      end
      else
      begin
        _ResultadoMD := 0;
        Conexion.Rollback;
      end;
    except
      on e: Exception do
      begin
        Conexion.Rollback;
       //Aqui si el número existe lo aumenta e inicia nuevamente una transacción
      end;
    end;
   //Aqui retorno el número guardado para enviarselo al cliente por medio de una función que retorna un entero.
   retNumeroDoc()

Y algo peor, me mezcla los registros que vienen del Cliente A con los del cliente B.