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;