Loop

Caros colegas,

Estou tentando fazer este loop no meu Dataset, mas ele entra em loop infinito e congela o programa.
Alguém pode dar uma olhadinha para ver se descobre o que é?

dm.ClientDatasetItens.First;
while not (dm.ClientDataSetItens.eof) do
begin
if (dm.ClientDataSetItens.Locate(´ItBdl_CodProduto´,DBEdit2.Text,[])) and (dm.ClientDataSetItens.Locate(´ItBdl_Pedido´,Edit1.Text,[])) then
begin
dm.ClientDatasetItens.edit;
dm.ClientDatasetItens.FieldByName(´ItBdl_Ufrete´).AsFloat:=strtoCurr(Edit4.Text);
dm.ClientDatasetItens.FieldByName(´ItBdl_COGSUnit´).AsFloat:=strtoCurr(Edit6.Text);
dm.ClientDatasetItens.FieldByName(´It_MK6´).AsFloat:=((strtoCurr(Edit6.Text))*1.33);
dm.ClientDatasetItens.Post;
end;
dm.ClientDatasetItens.Next;
dm.ClientDatasetItens.ApplyUpdates(-1);
end;


Desde já agradeço , pois estou o dia todo tentando isto e não consigo fazer.
O que preciso é encontrar todos os produtos com o mesmo código e alterar o valor de venda de cada um para um mesmo valor(It_MK6)


Um abraço a todos e obrigado.


José