Após um Locate destravar a Query

O problema é o seguinte eu precisar dar um locate para encontrar determinados valores, apos encontra-lo eu dou um outro locate em outra tabela. Até tudo bem a rotina esta Ok.
O meu problema é que preciso realizar esta rotina ate o fim de uma query e apos o locate
o Dateset da Query fica travado no primeiro registro eu dou um .Next e ele permanece
na primeira posição tem como destravar o Datase da query e deixar o laço percorrer toda a query ?
Segue exemplo....


sValor := ´ ´;
while not teste.eof do
begin
if QryTeste.Locate(´Cod_prod;Desc_Prod´,
VarArrayOf([Cod_prod;DEsc_Prod],[]), then
if tbValor.Locate(´Valor´, QryTeste[´Valor´],[]) then
sValor := CodValor + sValor;
qryTeste.Next;
end;