Consulta:='Select * from Linvales Where ¡Agc_lval='+IntToStr(Agencias[Contador])+
Consulta:='Select * from Linvales Where Agc_lval='+IntToStr(Agencias[Contador])+