[jacanche]

¿te confundiste tecleando el código?, si no es asi, el while deberia quedar

Código Delphi [-]
While not DataModule1.Table1.EOF Do
   Begin
      If DataModule1.Table1NPARNES.Value=Arnes Then
          NewArnes:=DataModule1.Table1NPARNES.Value
      Else
          DataModule1.Table1.Next;
   End;

Como lo tienes, si tiene registros no se va a ejecutar el código en el ciclo while