Problemas con Valor devuelto en RecNo.

[AGAG4]

Use un RxMemorydata como auxiliar del detalle, cuando Inserto,Actualizo y Borro tamibién se pasa en la Tabla RxMemorydata, por lo que realice un ciclo para que me de la posición del Registro

Código Delphi [-]
function DameRecNOMemData(Indice:Integer):String;
var posx:byte;
begin
  with dmFactBabatsa do begin
    memDFac.First;
    posx:=1;
    while (not memDFac.EOF) and 
            (memDFac.FieldByName('INDICE').value <> Indice) do begin
      Inc(Posx);
    memDFac.Next;
    end;
    if posx=0 then
      result:='1'
    else
      result:=IntToStr(Posx);
  end;
end;

Saludos....