FoxPro/Visual FoxPro - Eliminar registros de una tabla y restar valor a una caja de texto

Buenas tardes, tengo una tabla libre llamada PRODUCTOS y contiene 3 campos; codigo, producto, y precio. Y tengo una caja de texto (text2) que contiene la suma del precio de todos los productos de dicha tabla.
Pero ahora necesito el codigo para eliminar registros de esa tabla, que se eliminen segun el codigo escrito en una caja de texto (text1) y que al eliminarse un registro, se le reste el valor del precio del producto eliminado a la caja de texto (text2), la cual contiene la suma del precio de los productos.
Por si no se entendio, aqui dejare la imagen de lo que necesito:

En realidad no sé cuál es la pregunta.
1) para borrar un registro:
* Normalmente configuramos el sistema al inicio con SET DELETED ON

select tabla_libre && sin indice por Código
* LostFocus de Text1
IF !EMPTY(THIS.VALUE)
locate for codigo==alltrim(This.value)
if found()
nMess=Messagebox("Quiere borrar este registro?",4,"Borrando")
if nMess=6
delete
Thisform.grid1.refresh
sum all precio to thisform.text2.value
go top
endif
else
Messagebox("El Código no existe")
endif
ENDIF

Si utilizas un indice por el campo Código,
En el Valid del text1 puedes determinar si existe el código
*.TExt1.Valid
if !empty(this.value)
if !indexseek(this.value,.f.,"Tabla_Libre","Indicod")
Messagebox("El código no existe")
This.value="" && (o cero)
return 0
endif
endif
* TEXT1.LOSTFOCS
IF !EMPTY(THIS.VALUE)
INDEXSEEK(THIS.VALUE,.T.,"Tabla_Libre","Indicod")
nMess=Messagebox("Quiere borrar este registro?",4,"Borrando")
if nMess=6
delete
Thisform.grid1.refresh
sum all precio to thisform.text2.value
go top
endif
endif

2) Lo que me resulta raro es que sumes los precios. Normalmente, tenemos precio, cantidad e importe, donde el importe resulta de multiplicar el precio por la cantidad y sumamos los importes.
Entendiendo que Precio, es el valor por unidad al que se ofrece (o vende) un producto.

select productos
pon este codigo en el refrsh de tu grilla.
Calculate sum(productos.precio) to tucampotexto