Busqueda en Tabla Filtrada

[don malo]

Código Delphi [-]
procedure TForm3.Button9Click(Sender: TObject);
Var
   Req, Vel:Integer;
   Linea, Turno, Arnes, NewArnes:String;
begin
   DataModule1.Table1.First;
   Linea:=DataModule1.Query9LINEA.Value;
   Turno:=DataModule1.Query9TURNO.Value;
   Arnes:=DataModule1.Query9NPARNES.Value;
   Req:=DataModule1.Query9REQFAM.Value;
   Vel:=DataModule1.Query9VELOCIDAD.Value;
   While DataModule1.Table1.EOF Do
   Begin
      If DataModule1.Table1NPARNES.Value=Arnes Then
          NewArnes:=DataModule1.Table1NPARNES.Value
      Else
          DataModule1.Table1.Next;
   End;
End;

listo

//Jhonny: Lo edite para colocar etiquetas DELPHI