ayuda con este codigo

[[kurono]]

hola amigos como estan les cuento que e hecho un codigo el cual me recorre una tabla de principio a fin con el objetivo que en cada registro que alla en esa tabla me escoja un valor X de un campo y me lo sume con un numero Y y luego me lo agrege en otra tabla

el codigo funciona sin error el problema esta que me esta sumando y agregando solo el ultimo registro de esa tabla no se que esta mal aqui esta el codigo que utilizo

Código Delphi [-]
while not DM.tbl_Ventas.Eof do
     begin
      DM.Pro_Existencia.Active:=False;          //esto es un procedimiento almacenado
      DM.Pro_Existencia.Parameters.ParamByName('@ARTI').Value:=DM.tbl_Ventas.FieldValues['ARTICULO'];
      DM.Pro_Existencia.Active:=True;
      DM.Pro_Existencia.ExecProc; 

      DM.tbl_Compras.Locate('ARTICULO',DM.tbl_Ventas.FieldValues['ARTICULO'],[]);// este es la tabla donde agrego la suma
      DM.tbl_Compras.Edit;
      DM.tbl_Compras.FieldByName('CantAlmacen').Value:=IntToStr(StrToInt(DM.Pro_Existencia.FieldValues['EXISTENCIA'])+    StrToInt(DM.tbl_Ventas.FieldValues['CANTIDAD']));
      DM.tbl_Compras.Post;

      DM.tbl_Ventas.Next;
      end;