Retomar control en Edit

[Jose Carlos Rey]

Caminante, que tal haciendo lo que comentabas de sacar la sentencia next fuera de los condicionales If termina en la primer lectura del lector de codigo.

Código Delphi [-]
  if (key = #13) then
    begin
      Nprod:=Edit1.Text;
      DataModule1.ADOQuery8.Close;
      DataModule1.ADOQuery8.Open;
      DataModule1.ADOQuery8.SQL.Clear;
      DataModule1.ADOQuery8.Close;
      DataModule1.ADOQuery8.SQL.Add('SELECT CVE_DOC,NUM_PAR,CVE_ART,CANT,CVE_ALTER,USUARIO,AREA,NIVEL');
      DataModule1.ADOQuery8.SQL.Add('FROM PAR_FACTF_CLASS');
      DataModule1.ADOQuery8.SQL.Add('WHERE CVE_DOC=:Fact');
      DataModule1.ADOQuery8.Parameters.ParamByName('Fact').Value:=Nfact;
      DataModule1.ADOQuery8.ExecSQL;
      DataModule1.ADOQuery8.Open;
      DataModule1.ADOQuery8.First;
      DBGrid1.Columns[0].Visible:= True;
      DBGrid1.Columns[1].Visible:= True;
      DBGrid1.Columns[2].Visible:= True;
      DBGrid1.Columns[3].Visible:= False;
      DBGrid1.Columns[4].Visible:= False;
      DBGrid1.Columns[5].Visible:= False;
      DBGrid1.Columns[6].Visible:= False;
      DBGrid1.Columns[7].Visible:= False;
      Cuser:='NOMBRE USUARIO';
      Carea:='SISTEMAS';
      Nnivel:=0;
      Ncuenta:=0;
      While Not DataModule1.ADOQuery8.Eof Do
        Begin
            If Not (DataModule1.ADOQuery8.Fields[0].Value<>Nfact) Then
              Begin
                Nprod:=DataModule1.ADOQuery8.Fields[4].Value;
                  If (DataModule1.ADOQuery8.Fields[4].Value=Nprod) Then
                    Begin
                      Ncant:=DataModule1.ADOQuery8.Fields[3].Asinteger;
                      If (DataModule1.ADOQuery8.Fields[3].Value<>Ncuenta) Then
                        Begin
                          Ncuenta:=Ncuenta+1;
                        End
                    End;
              End; // Fin de While Nfact=Nfact
                DataModule1.ADOQuery8.Next;
                Ncuenta:=0;
                Nprod:=DataModule1.ADOQuery8.Fields[4].Value;
                Form5_suite_factura.Show;
                Form5_suite_factura.Edit1.Clear;
                Form5_suite_factura.Edit1.SetFocus;
        End; // Fin de While EOf
        Form5_suite_factura.Close;
        ShowMessage('Se termino la lectura de productos para su salida.');
    end;
end;

como podras observar ya esta fuera de los If solo dentro de While Eof pero se sale inmediatamente.
Gracias

[Caminante]

Eso si que esta raro

¿Y el codigo que esta depues de DataModule1.ADOQuery8.Next? En el codigo anterior no estaba.

[Jose Carlos Rey]

Caminante, no; no lo tenia en el código anterior. Este lo agregue con la intención de retomar el setfocus en el Edit de la Form5 en la cual es donde debe de estar el cursor solicitando el ingreso del código EAN13 a través del lector de código. Pero aun así no funciona. Simplemente muestra la forma y en el edit solo aparece el código EAN13 que se acaba de ingresar ( parece entrar en un bucle).
Alguien que me de una idea de donde puede estar mal o una ayudadita con el código. No se me ocurre en donde puede estar la falla o muy posiblemente estoy en todo mal. Cabe mencionar que este código lo estoy haciendo en el evento de OnKeyPress del Edit1.

Gracias