Ayuda con programa de pedidos e inventario

[rufo]

Gracias amigos por responder, resulta que es ahi el meoyo del asunto que no se que tipo de consaulta hacer ya que anteriormente hice una consulta para que sumara un campo cuando ingresara una nueva cantidad y el codigo que use fue este:

 procedure TENTRADAS.sButton4Click(Sender: TObject);
begin
 if messagedlg('Los datos son correctos?',mtconfirmation,[mbok,mbcancel],0)=mrok then
   begin
      with dm1.T_inventario do
      begin
         active:=true;
         SetKey;
         FieldByName('id_productos').Asinteger := strtoint(slabel9.Caption);
         GotoNearest;
         edit;
         fieldbyname('id_productos').asinteger:=strtoint(slabel9.Caption);
         fieldbyname('fecha_entrada').asstring:=sedit2.Text;
         fieldbyname('id_proveedor').asinteger:=v_idproveedor;
         fieldbyname('tipo').AsString:=combobox3.Text;
         post;
         refresh;
      end;
      begin
       dm1.T_inventario.Edit;
       dm1.T_inventario.FieldbyName('cantidad_entrada').AsFloat:= dm1.T_inventario.FieldbyName('cantidad_entrada').AsFloat +  StrToFloat(sEdit1.Text);
       dm1.T_inventario.Post;
      end;
   end;

Este es le codigo que utilice anteriormente, entonces quiero preguntarles si es asi o algo semejante que tengo que hacer, les anexo que en el momento de levantar pedido agrego mis productos y la cantridad en los objetos Memos, de antemano gracias.