Query da erro e trava a rotina

Pessoal,

preciso de uma ajuda ..., tenho o seguinte codigo:

// dmtabelas.TProduto.First;
// ProgressBar2.Max := dmtabelas.TProduto.RecordCount;
// ProgressBar2.Position := 0;
// while not DMTabelas.TProduto.Eof do
// begin
// dmtabelas.TProduto.Edit;
// frmprod.atualizaPreco;
// dmtabelas.TProduto.Post;
// ProgressBar2.Position := ProgressBar2.Position + 1;
// dmtabelas.TProduto.Next;
// end;
// dmtabelas.TProduto.close;
// dmtabelas.TProduto.FreeOnRelease;

Em frmprod.atualizaPreco , tenho uma Query onde seleciono o preciso e faco a alteracao na tabela de PRodutos (do item que esta no dataset).

Qdo a tabela de produtos tinha pouco registro ... ia q era uma beleza ..., so que agora que tem muitos registro , inicio a rotina e qdo esta +/- no meio dos registros da um erro
´Access Violation ´ e numero do endereco de memoria e trava a maquina.

Naum sei mais que faco pra resolver isso..

alguem poderia me dar alguuma ajuda ?

Obr

Marcel