Fórum .:: Atualizar estoque com SQL ::. #171532

Ola pessoal tudo bem ?

Estou usando o Banco Paradox e o seguinte código para atualizar meu estoque :

var registro : integer;
begin
REgistro := table1codprodvendas.AsInteger;
table2.First; // coloca no inicio
While not table1.Eof Do // enquanto nao chegar no final
begin
If Table2Codigoprod.Asinteger = Registro then
begin
Table2.Edit;
table2estoque.Asfloat:= table2estoque.Asfloat - table1qtd.Asfloat;
table2.post;
end;
table2.Next; // nao encontrando avança para proximo produto
end;

O sistema compila sem problemas, mas na hora de executar a rotina meu programa trava.
Não seria mais fácil fazer essa rotina em SQL?
Se alguém tiver algum exemplo pra me passar eu agradeceria, ou também se tivesse alguma explicação do porque meu programa trava com essa rotina também seria de grande ajuda.

Agradeço novamente a atenção de vocês. :roll:

[]´s